Hallo Gast,
hier ein Ansatz...
With Sheets("Tabelle1")
'Standarddrucker sichern
Dein_Standarddrucker = .ActivePrinter
'
' >>>Dein_PDF_Drucker<<< durch den Druckernamen ersetzen!!!
'
.ActivePrinter = "Dein_PDF_Drucker"
'Druckbereich festlegen:
'
' >>>$A$1:$I$75<<< HIER!!! durch eine Logik füllen lassen!
'
' z. B. nach den Seitenvorschub suchen lassen
'
.PageSetup.PrintArea = "$A$1:$I$75"
'Dateinamen mit drucken lassen, nach Geschmack
.PageSetup.LeftFooter = Application.ActiveWorkbook.Path & Application.ActiveWorkbook.name
'Drucken:
.PrintOut
'Druckbereich aufheben und ein bischen aufräumen
.PageSetup.PrintArea = ""
.PageSetup.LeftFooter = ""
'Standarddrucker rücksichern
.ActivePrinter = Dein_Standarddrucker
End With
Gruß Detlev
|