Code druckt nicht auf PDF
13.04.2021 15:07:05
Eisi
nachfolgender Code erstellt mir die Rechnungsnummer mit User wie gewünscht. Habe den Code also nur wenig anpassen müssen. Mit dem Code soll später ein Angebot als PDF (DIN A4, 1 - x Seiten) gedruckt werden und dabei die Angebotsnummer automatisch hochzählen.
Das Druckmenü öffnet sich ganz normal, wenn ich aber PDF drucken auswähle druckt er die Seite nicht.
Hochzählen tut der Code schon, aber er druckt nicht.
Warum nicht?
Danke für Euer Feedback.
VG Eisi :-)
Sub Rechnungsnummer()
Dim RechNr As Long
Dim Jahr As Integer
Jahr = ActiveWorkbook.BuiltinDocumentProperties(6)
RechNr = ActiveWorkbook.BuiltinDocumentProperties(5)
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("A5") = Format(RechNr, "0000") & " - " & Jahr & " / " & Range("A1")
End Sub