Druck aus Word (mehrfach)

22/02/2008 - 11:34 von Romica Mare | Report spam
Hallo NG,

ein Excel-2000 Blatt kann ich mit dem Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.RightHeader = "Original"
ActiveSheet.PrintOut
.RightHeader = "Kopie"
ActiveSheet.PrintOut
.RightHeader = "Ablage"
End With
End Sub

automatisch 3-fach Drucken, mit dem Zusatz: Original, Kopie bzw.
Ablage - wie geht das Gleiche in Word-2000.


Gruß
Romica
 

Lesen sie die antworten

#1 Thomas Gahler
22/02/2008 - 12:20 | Warnen spam
Hallo Romica


automatisch 3-fach Drucken, mit dem Zusatz: Original, Kopie bzw.
Ablage - wie geht das Gleiche in Word-2000.


Das wàre eine Möglichkeit


Sub FilePrintDefault()
With ActiveDocument
.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = "Kopie 1"
.PrintOut Background:=False
.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = "Kopie 2"
.PrintOut Background:=False
End With
End Sub


Thomas Gahler
MVP für WordVBA
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)


- Windows XP (SP2), Office XP (SP3)

Ähnliche fragen