Als PDF speichern
27.07.2006 11:50:56
Tobias
und zwar habe ich eine Excelarbeitsmappe. In dieser Mappe sind jeweils am Anfang und am Ende 2 Tabellen, die die Basis sind und nicht ausgedruckt werden sollen.
Jetzt zum eigentlich Problem. Ich möchte einen Makro erstellen, der alle Tabellen, die zwischen diesen beiden Mappen sind als PDF ausdruckt und des weiteren auch alle neuen die womöglich noch dazukommen und dessen Name ich noch nicht kenne. Diese neuen Tabellen soll er dann einfach in den Druckvorgang miteinbeziehen. Außerdem sollen die Tabellen dann halt als .pdf abgespeichert und auch als solches ausgedruckt werden.
Also bis jetzt habe ich folgendes. Das Problem dabei halt das es einfach alle Tabellen ausdrucktt.
Private Sub CommandButton1_Click()
Application.ActivePrinter = "PDF995 auf Ne00:"
ActiveWorkbook.PrintOut Copies:=1, ActivePrinter:= _
"PDF995 auf Ne00:", Collate:=True
End Sub
Gruß
Tobi