Drucken mit Makro
21.01.2015 14:00:30
Sebastian
Ich habe das Problem das ich mehrere Tabellen Blätter in Unterschiedlichen Kombinationen Drucken muss zu vereinfachen habe ich mir schon Mehrere Makros geschrieben.
Da es aber immer mehr Tabellen werden nimmt die Kompensations Möglichkeit extrem zu.
Ich wurde gerne
Sub Drucken_Prüfblatt_1()
' Drucken_Prüfblatt_1
Sheets(Array("Deckblatt", "Prüfblatt 1")).Select
Cells.Select
Selection.Interior.ColorIndex = xlNone
Sheets("Deckblatt").Activate
Application.ActivePrinter = "signotec PDF-Creator auf Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets(Array("Rohdatenblatt Durchfluss")).Select
Selection.Interior.ColorIndex = xlNone
Sheets(Array("Rohdatenblatt Durchfluss")).Select
Selection.Interior.ColorIndex = xlNone
Sheets("Deckblatt").Activate
DateiName = Range("Startseite!R23") & Range("Startseite!R20") & Range("Startseite!R19") & ". _
_
pdf"
Range("A1:W95").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DateiName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Sheets("Deckblatt").Activate
Sheets(Array("Startseite")).Select
Call Speichern_unter_Server
Sheets(Array("Deckblatt")).Select
Sheets(Array("Deckblatt", "Prüfblatt 1")).Select
"Prüfblatt 1" eine Zelle z.B. AI3 Abfragen.
Hatte mir das So vorgestellt
Sheets(Array("Deckblatt", "Deckblatt!AI1")).Select
Hintergrund ist der Ich möchte bestimmte Zellen in den Tabellen abfragen und so feststellen welche benutzt sind und diese dann drucken.
in Zelle AI3 würde dann z.B stehen
Prüfbaltt 1, Prüfbaltt 2, Prüfbaltt 4