Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Dokumente durchnummerieren
Autor: OliverBreith
Datum: 04.06.09 00:31
Hallo Kollegen, ich brauche Hilfe beim Drucken von Dokumenten. Mein Wunsch: Verschiedene Dokumente, welche ich bereits vorliegen habe, müssen in einen Drucker gelegt werden und fortlaufend durchnummeriert werden. Dabei ist das Problem, dass ich keine Ahnung habe, wieviele Seiten ich vorliegen habe (mal 10; mal 200!!) Mein bisheriger Code lautet wie folgt: On Error GoTo ErrorHandler Dim Datei As String Datei = "C:\DOK1.DOC" sFilename = Datei Dim wApp As New Word.Application Dim b_PrintBackground As Boolean wApp.Documents.Open sFilename Set Fusszeile = wApp.ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range ' Einstellung zu "Drucken im Hintergrund" erfragen b_PrintBackground = wApp.Options.PrintBackground For Seite = 1 To 10 'nur als Beispiel With wApp Fusszeile.Text = "Dokument erstellt von: " & Bearbeiter & " am " & Date & " Seite: " & Seite ' "Drucken im Hintergrund" ausschalten, da sonst der Ausdruck scheitert .Options.PrintBackground = False ' Dokument drucken .ActiveDocument.PrintOut ' Einstellung zu "Drucken im Hintergrund" wieder zurücksetzen .Options.PrintBackground = b_PrintBackground End With Next Seite wApp.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges wApp.Quit (wdDoNotSaveChanges) Set wApp = Nothing Exit Sub ErrorHandler: MsgBox Err.Description wApp.Quit Set wApp = Nothing End Sub Die Druckoption funktioniert aus so weit, aber wie kann ich das Problem mit der Anzahl der Seiten in den Griff bekommen. Mein Wunsch: Seite 1 drucken; ist der Ausdruck gemacht, prüfen, ob weiteres Papier im Drucker. Ist weiteres Papier (Dokument) im Drucker dann nächster Ausdruck. Vielen Dank für eure Mühe und einen Gruß aus Lörrach Oliver Breith

Dokumente durchnummerieren	2.466	OliverBreith	04.06.09 00:31
Re: Dokumente durchnummerieren	1.306	+++MaRuSo+++	17.06.09 16:42
Re: Dokumente durchnummerieren	1.249	OliverBreith	17.06.09 20:06
Re: Dokumente durchnummerieren	1.454	+++MaRuSo+++	17.06.09 20:22

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen