Liebe ExpertInnen,
ich stehe vor der Aufgabe, aus einem 1000-seitigen Dokument unter Windows die Seiten 1, 17, 23, 48, … (ziemlich willkürlich 73 Stück, aber vorher bekannt) zu drucken und zu einem späteren Zeitpunkt die dazwischen liegenden. Hintergrund: Sauteure Etiketten. Nun suche ich ein Script, dem ich die Druckbefehle mit den Seitenangaben mundgerecht darbieten kann - im Dialog fange ich wohl nach der 27. Aktion an zu schielen. Wer weiß was?
Eignet sich wohl AutoIt? Meine Erfahrungen sind sehr begrenzt; wenn der Lernaufwand größer wird als die Zeit für das manuelle Drucken, lohnt es sich ja nicht.
Gruß Ralf
Hallo ralf,
ich stehe vor der Aufgabe, aus einem 1000-seitigen Dokument
unter Windows
geht es um ein Word-Dokument, also eine doc?
die Seiten 1, 17, 23, 48, … (ziemlich
willkürlich 73 Stück, aber vorher bekannt) zu drucken und zu
einem späteren Zeitpunkt die dazwischen liegenden.
ungetestet mal auf die Schnelle:
Sub Druck()
Dim Seiten, S
Seiten=array(1,17,23,48,...)
For S = 0 to ubound(Seiten)
activedocument.printout(...)
Next
End Sub
Sub DruckRest()
Dim Seiten, S, N, Ja
Seiten=array(1,17,23,48,...)
For N=1 to ActiveDocument.Pages.Count ' ausgedacht, heißt in Word sicher anderes
Ja=True
For S = 0 to ubound(Seiten)
if Seiten(S) = N Then
Ja=false
Exit For
End if
Next
If Ja=True then activedocument.printout(...)
Next N
End Sub
AutoIt kenne ich nicht.
Gruß
Reinhard
Hi Reinhard,
danke für die Anregung - ist zwar ein Access-Report, der Code müsste sich aber umfrisieren lassen.
Gruß Ralf