Hilfe: PDF drucken
15.04.2021 11:43:33
Eisi
seit 2 Tagen hänge ich fest. Mit nachfolgendem Code möchte ich aus einem Sheet mit markierten Druckbereich eine PDF mit 3 Seiten drucken. In eine bestimmte Datei speichern und mit dem Dateinamen in der Zelle B4.
Der Code bringt mir die Fehlermeldung: Laufzeitfehler 91: Objektvariable oder With-Blockvariable nicht festgelegt.
Ich kann das leider nicht auflösen. Kann mir jemand bitte helfen?
Vielen Dank.
VG Eisi :-)
Sub AngebotDruckenAberWie()
Dim RechNr As Long
Dim Jahr As Integer
Jahr = ActiveWorkbook.BuiltinDocumentProperties(6)
RechNr = ActiveWorkbook.BuiltinDocumentProperties(5) '(Mit 1 Zähler auf Null stellen) (5 zä _
hlt hoch)
If Application.Dialogs(xlDialogPrinterSetup).Show = False Then Exit Sub
If Jahr Year(Date) Then
RechNr = 0
Jahr = Year(Date)
ActiveWorkbook.BuiltinDocumentProperties(6) = Jahr
End If
RechNr = RechNr + 1
ActiveWorkbook.BuiltinDocumentProperties(5) = RechNr
Range("B4") = Format(RechNr, "0000") & " - " & Jahr & " / " & Range("E1")
'_________________________________________________________________________________________
Dim strDruckeAngebot As String
Dim rngDateiName As Range
rngDateiName = [B4].Value
strDruckeAngebot = "C:\Angebote" & rngDateiName
With ActiveSheet.PageSetup
.Orientation = xlPortrait
.PrintArea = "$B$3:$I$176"
.Zoom = False
.FitToPagesTall = False
.FitToPagesWide = 1
End With
Dim ws As Worksheet
Set ws = ActiveSheet
ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strDruckeAngebot, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub