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

Beiträge aus den Excel-Beispielen zum Thema "Wert "#WERT! " in 000 umwandeln"