Ich habe eine Excel-Tabelle mit der ich die Sammellieferungen berechne. Deswegen gibt es Mappen die die Bezeichung Rechnung1, Rechnung2, usw. haben.
Es soll nun das Ausdrucken der Rechnungen über VBA gehen. Bisher habe ich folgende Programmierung ausgearbeitet, die auch funktioniert:
Sheets("Rechnung1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Rechnung2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Was die ganze Sache noch unbefriedigend macht ist Folgendes:
Nachdem die Mappe"Rechnung1" ausgewählt wurde, müßte der Zellwert B38 auf Inhalt geprüft werden. Falls B38 leer ist, so sollte der SUB beendet werden, andernfalls mit dem Druck (SUB)fort gefahren werden.
Beim Drucken sollte der Name der Datei vergeben werden zusammen mit dem Zellwert D10 der jeweiligen Mappe.
Last but not least möchte ich den Abspeicherort E:\DATEN\sdoliwa\EigeneDokumente\ eingeben.