ein schwieriges Problem (denke ich):
Dies Makro hab ich mit dem Rekorder aufgenommen:
Sub Macro1()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Und so erweitert:
Sub test()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Adobe PDF on Ne02:", _
printtofile:=True, Collate:=True, prtofilename:="D:\" 'hier eigentlich ein längerer Pfad
End Sub
Beide funktionieren prima.
ABER:
Die PDFs des ersten Makros lösen ein "SavePDFfile as"-PopUp Fenster aus und die PDF-Dateien sind prima in Ordnung.
Das 2. Makro "Test" wirft mir pdf-Dateien aus, die nicht lesbar sind... "Acrobat couldn't open because file is either not supported or damaged." Vielleicht ist es ein ganz anderes Problem, aber ich habe die Vermutung, dass Excel einfach zu schnell ist und den Druckvorgang nicht sauber abschließt. Mit dem SaveFenster hat er Zeit... Ich habe es mit einem nachgeschalteten Application.Wait probiert, hat aber nicht geholfen.
Als Alternative habe ich versucht, mit dem PopUp-Save-Fenster zu arbeiten und ein SendKeys vorzuschalten, aber der String wird nur zur Hälfte ins Fenster geschrieben, die andere Hälfte wird verschluckt.
Habt Ihr ein paar Ideen / Lösungen?
Beste Grüße aus Belgien,
Axel