Von |
wurstel |
eMail |
|
Am |
30. Mai 2008 um 22:13:20 |
Frage |
Ich habe mit Excel ein Formular erstellt, dass aus drei Blättern besteht: Blatt1 ist für die Eingabe, Blatt2 und Blatt3 übernehmen die Eingaben und sollen dann über einen entsprechendes Makro ausgedruckt werden. Dabei sollen nur die Zellen des Formular und zwar auf ein DIN A4-Blatt eingepasst gedruckt werden.
Ich bin ziemlicher Anfänger, habe bisher es einfach immer mit dem Recorder gemacht, aber das funktioniert in dem Fall nicht richtig. Bei einem einzelnen Blatt habe ich es bisher imer so hinbekommen:
Sub BeihilfeantragDrucken() ' ' BeihilfeantragDrucken Makro ' Makro am 25.09.2007 von Klaus Bastian aufgezeichnet '
' Sheets("Aktuell").Select Range("A1:J46").Select PaperSize = xlPaperA4 FitToPagesWide = 1 FitToPagesTall = 1 Selection.PrintOut Copies:=1, Collate:=True End Sub
Aber das funktioniert in dem Fall nicht und bindet auch die erforderlichen Seitenrandeinstellungen nicht mit ein. Kann mir jemand weiterhelfen?
Vielen Dank und viele Grüße Wurstel
|
|