PDF'saus Excel per VBA Run-time Error
12.09.2008 10:14:00
Martin
ich habe folgendes Problem. Ich habe ein Makro geschrieben, welches automatisch PDF erzeugen soll.
Das zu druckende Sheet ist ein Template, welches sich seine Daten über eine ID zieht. In einem weiteren Sheet möchte ich in einer Spalte über "x" auswählen welche Sheets mit welcher ID ich als PDF ausdrucken möchte. Das soll dann automatisch über VBA in einer Schleife laufen.
Ich bekomme leider die Fehlermeldung Run-time error '91' Object variable or With block variable not set.
Hat jemand vielleicht eine Idee woran das liegen könnte. Der Code steht unten. Beim Debuggen in der Zeile
distiller.FileToPDF Pfad & Datei & ".ps", Pfad & Datei & ".pdf ", ""
auf.
Sub PDF_x_DC()
Dim Pfad As String
Dim Datei As String
Dim distiller As ACRODISTXLib.PdfDistiller
Set distiller = New ACRODISTXLib.PdfDistiller
For z = 5 To 65000
Pfad = ThisWorkbook.Sheets("Print").Cells(z, 19).Value
Datei = ThisWorkbook.Sheets("Print").Cells(z, 18).Value
Sheets("Print").Activate
Cells(z, 11).Select
If ActiveCell.Value = "END" Then
Exit Sub
Else
If ActiveCell.Value = "0" Then
ActiveCell.Offset(1, 0).Select
Else
Sheets("Template_DC").Range("Print_A1").Value = Sheets("Print").Cells(z, 11).Value
Sheets("Template_DC").Calculate
Sheets("Template_DC").Select
Insert_Pictures_DC
Sheets("Template_DC").Select
ThisWorkbook.Worksheets("Template_DC").PrintOut ActivePrinter:="Adobe PDF", printtofile:= _
True, Collate:=True, PrToFileName:=(Pfad & Datei & ".ps")
distiller.FileToPDF Pfad & Datei & ".ps", Pfad & Datei & ".pdf ", ""
Kill Pfad & Datei & ".ps"
Set distiller = Nothing
Sheets("Print").Activate
Cells(z, 11).Select
End If
End If
Next z
End Sub
Anzeige