19. Apr 2024, 20:50
VB-fun.de - Beitragsübersicht zum VB-/VBA-Forum-Archiv 0408
  E00: Mit einem Makro in Excel 2000 drucken
 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
[ VB-/VBA-Forum | Archiv 0408 | Archiv-Übersicht ]
 Antworten
E00: Mit einem Makro in Excel 2000 drucken - wurstel 30. Mai 2008 um 22:13:20
Re: Mit einem Makro in Excel 2000 drucken - r.mueller@sz-online.de 31. Mai 2008 um 06:52:34
Re: Mit einem Makro in Excel 2000 drucken - wurstel 31. Mai 2008 um 08:33:05
Re: Mit einem Makro in Excel 2000 drucken - r.mueller@sz-online.de 01. Juni 2008 um 19:48:42
Re: Mit einem Makro in Excel 2000 drucken - Wurstel 02. Juni 2008 um 09:10:16

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB-/VBA-Forum | DirectX | DirectX-Forum | VB.Net | VB.Net-Forum | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum