print, gem - knap

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

  VAPTI = "C:\mine_regneark\" & A1 & C3 & ".XLS"
   
        ActiveWorkbook.SaveAs FileName:=VAPTI, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

hej lars

der ser godt ud .. tester det så snart jeg er på arbejde imorgen

tak

/søren

fejler på denne SaveAs

        ActiveWorkbook.SaveAs Filename:=VAPTI, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

?

Samlet løsning, der gerne skulle virke:

Sub TestAfGem()

Dim A, C
Set A = Range("a1")
Set C = Range("c3")

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True


VAPTI = "C:\mine_regneark\" & A & C & ".XLS"
   
        ActiveWorkbook.SaveAs Filename:=VAPTI, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

End Sub

virker perfekt

mange tak for hjælpen

ups ... smid et svar :)

Hæh, herligt! ;-D