Herbers Excel-Forum - das Archiv

Druckmakro

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Druckmakro
von: Steffen

Geschrieben am: 21.04.2005 12:26:35
Hallo
Wie kann ich unter VBA ein Druckmakro erstellen, das mir die Exeltabelle ausdruckt, in die ich über eine Userform Daten eingefügt habe?
Bild

Betrifft: AW: Druckmakro
von: marcl
Geschrieben am: 21.04.2005 13:33:54
Hallo Steffen,
' Application.ActivePrinter = "\\D0142139\Kyocera Mita FS-1010 auf Ne03:" ' wenn Du mehrere Drucker zur Verfügung oder ein Netzwerkdrucker hast
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Gruß
marcl
Bild

Betrifft: AW: Druckmakro
von: Bryan

Geschrieben am: 21.04.2005 13:40:52
Hallo Steffen,
Hier ein Beispiel, name und Bereich musst Du natürlich noch ändern bzw anpassen.
Sub jan_Druck()
With ActiveSheet.PageSetup
.PrintArea = ""
.PrintArea = "$C$16:$Q$49"
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveSheet.PrintOut from:=1, To:=1
End Sub


Gruss Bryan
 Bild