Druckbefehle skripten

Computer: Software & Programmierung Programmierung allgemein
#1

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

#2

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

#3

Hi Reinhard,

danke für die Anregung - ist zwar ein Access-Report, der Code müsste sich aber umfrisieren lassen.

Gruß Ralf