AW: Blatt mit definiertem Fach und Textblock drucken
28.07.2010 11:08:53
Klaus
Hallo Helmut,
Hajo hat dir schon einen Tip für die Papierfächer gegeben. Was die Fußzeilen angeht: Wirf doch mal den Makrorekorder an und erstelle eine Fußzeile. Das sieht dann ungefähr so aus:
Sub Makro1()
' Makro1 Makro
ActiveWindow.SelectedSheets.PrintPreview
Range("D9").Select
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = "Meine Fußzeile"
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Das ganze kürzen wir etwas zusammen, schmeißen alles überflüssige raus und fügen dafür unsere neuen Drucker in das Makro ein:
Sub Button1_Click()
Application.ActivePrinter = "\\Printserver\Printername(1)"
With ActiveSheet.PageSetup
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = "Dies ist meine Fußzeile für Drucker 1"
End With
End Sub
Sub Button2_Click()
Application.ActivePrinter = "\\Printserver\Printername(2)"
With ActiveSheet.PageSetup
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = "Dies ist meine Fußzeile für Drucker 2"
End With
End Sub
So sollte es gehen, oder?
Grüße,
Klaus M.vdT.