Sub Test()
Dim pdfJob As Object
Set pdfJob = CreateObject("PDFCreator.clsPDFCreator")
'....
End Sub
VBA/HTML - CodeConverter für Office-Foren
AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel
Code erstellt und getestet in Office 15
Private Sub Drucken_PDF()
Dim strSheet As String
On Error GoTo fehler 'Fehlermeldung, wenn Tabelle nicht existiert
strSheet = Application.CommandBars.ActionControl.Text
ThisWorkbook.Sheets(strSheet).Activate
ActiveSheet.AutoFilterMode = False
'Filtern
Range("A22:W224").Sort Key1:=Range("K22"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'Druckbereich festlegen
ActiveSheet.PageSetup.PrintArea = "$A$1:$W$45"
'Variablen inizialisieren
Dim pdfJob As Object
strSheet = Application.CommandBars.ActionControl.Text
strSheet = Application.CommandBars.ActionControl.Text