|
Guten Abend!
Ich möchte per VBA ein pdf öffnen und x mal drucken.
Kriege das pdf mit folgender Formel auf:
Dim Datei As String
Datei = "\\x).pdf"
ActiveWorkbook.FollowHyperlink Datei
jezt soll er aus dem Tabellenblatt Dokumentendruck aus der Zelle L30 die Anzahl der notwendihgen ausdrucke übernehmen.
dann folgt:
'Wählt den Drucker Magazin 1 aus
Dim strPrinter As String
Const cstrPrinter As String = "\\xxx auf Ne11:"
strPrinter = Application.ActivePrinter
ActiveSheet.PrintOut From:=1, To:=5, Copies:=1, Preview:=False, _
ActivePrinter:=cstrPrinter, Collate:=True
Application.ActivePrinter = strPrinter
Wie bekomme ich es hin, dass er die Anzahl der Kopien aus Excel ausliest.
Mfg
Matthias
|