pdf Druck nach bestimmter tabelle
AndreasB
ich habe mir ein makro zusammengestellt, aber komme jetzt nicht mehr weiter.
ich möchte, das die gesamte arbeitsmappe gedruckt wird, und dabei nach dem
tabellenblatt "andreas" ein pdf geöffnet wird und gedruckt wird. danach in excel
weiterdrucken. ist das möglich? siehe unten:
Sub test1()
Dim i, j
Debug.Print Application.ActivePrinter
ChangePrinter "FreePDF"
i = Worksheets.Count
For j = 1 To i
Sheets(j).Select
ActiveWindow.SelectedSheets.PrintOut
Next j
'wie muss ich tun um die folgenden 4 Zeilen oberhalb Next j
'einzufügen mit der Bedingung, dass die folgenden 4 Zeilen
'nur dann ausgeführt werden nachdem das Tabellenblatt mit dem
'Namen "Andreas" gedruckt wurde.
ShellExecute Application.hwnd, "Open", "C:\Temp\test.pdf", _
vbNullString, vbNullString, vbNormalFocus
ShellExecute Application.hwnd, "print", "C:\Temp\test.pdf", _
vbNullString, vbNullString, vbNormalFocus
End Sub
Anzeige