Drucken mit Word

Diverse VBA Makros: Drucken mit Word. PrintOut, PrintReverse
Drucken aktuelle Seite Sub DruckenAktuelleSeite()
On Error Resume Next
Application.PrintOut filename:="", _
Range:=wdPrintCurrentPage, _
Item:=wdPrintDocumentContent, Copies:=1, Pages:="", _
PageType:=wdPrintAllPages, Collate:=True, _
Background:=True, PrintToFile:=False
End Sub
Drucken des markierten Textes Sub DruckenMarkierung()
On Error Resume Next
Options.PrintReverse = True
Application.PrintOut filename:="", Range:=wdPrintSelection, _
Item:=wdPrintDocumentContent, Copies:=1, Pages:="", _
PageType:=wdPrintAllPages, Collate:=True, _
Background:=True, PrintToFile:=False
End Sub
Drucken 2 Seiten pro Blatt Sub Drucken_2_Seiten_pro_Blatt()
On Error Resume Next
Options.PrintReverse = False
Application.PrintOut filename:="", _
Range:=wdPrintAllDocument, _
Item:=wdPrintDocumentContent, Copies:=1, Pages:="", _
PageType:=wdPrintAllPages, Collate:=True, _
Background:=True, PrintToFile:=False, _
PrintZoomColumn:=2, PrintZoomRow:=1, _
PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub
Drucken 4 Seiten pro Blatt Sub Drucken_4_Seiten_pro_Blatt()
On Error Resume Next
With Options
.UpdateFieldsAtPrint = True
.UpdateLinksAtPrint = False
.DefaultTray = "Druckereinstellungen verwenden"
.PrintBackground = True
.PrintProperties = False
.PrintFieldCodes = False
.PrintComments = False
.PrintHiddenText = False
.PrintDrawingObjects = True
.PrintDraft = False
.PrintReverse = False
.MapPaperSize = False
End With
With ActiveDocument
.PrintPostScriptOverText = False
.PrintFormsData = False
End With
Application.PrintOut filename:="", _
Range:=wdPrintAllDocument, _
Item:=wdPrintDocumentContent, Copies:=1, Pages:="", _
PageType:=wdPrintAllPages, Collate:=True, _
Background:=True, PrintToFile:=False, _
PrintZoomColumn:=2, PrintZoomRow:=2, _
PrintZoomPaperWidth:=11907, _
PrintZoomPaperHeight:=16839
End Sub

Mehr Tipps: Word - Automatisch Makros ausführen

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen! Wenn Sie die Information(en) auf diesen Seiten interessant fanden, freuen wir uns über Ihren Förderbeitrag. Empfehlen Sie uns auch gerne in Ihren Netzwerken. Herzlichen Dank!

Nutzen Sie unsere Suchfunktion:

Nach oben Sitemap
Impressum Datenschutz

Hinweis: Diese Webseite kann Werbeanzeigen und Werbeeinblendungen oder eingebundene Links von Diensten und Inhalten Dritter enthalten. Beachten Sie dazu unsere Datenschutzerklärung.