arbeitsblatt-name in makro übernehmen
06.02.2006 21:28:32
djobst
ich benutze ein makro das den druckauftrag an den pdf-editor weiterleitet.
nun würde ich gern erreichen,dass der Tabellenname (Arbeitsblatt-reiter)
gleich mitgespeichert wird. geht das?
hier das makro :
Sub()
Range("A106:H134").Select
ActiveSheet.PageSetup.PrintArea = "$A$106:$H$134"
Application.ActivePrinter = "Canon i560 auf Ne03:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Canon i560 auf Ne03:", Collate:=True
ActiveWindow.SmallScroll Down:=24
Range("A137:H165").Select
ActiveSheet.PageSetup.PrintArea = "$A$137:$H$165"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
danke dafür.