ich stehe gerade mal wieder vor einem Problem, welches ich nicht gelöst bekomme.
Ich versuche NUR mit Userformen zu arbeiten, sodass meine Kollegen nie die Exceldatei tatsächlich zu Gesicht bekommen. Zum Drucken habe ich bereits folgenden Code:
Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
With Sheets("Urlaubsantrag")
.Visible = True
.PrintOut
.Visible = False
End With
Application.ScreenUpdating = True
Sheets("Urlaubsantrag").Range("B4:DX195").PrintOut
End Sub
Nun möchte ich natürlich auch die Gelegenheit geben, dass Sie sich diese Datei als "PDF" abspeichen können. Aus dem Tabellenblatt heraus ist das kein Problem, nur wie geht dies ohne "aktiven" Tabellenblatt wie beim Drucken?
Diese Vorgabe habe ich ....
Sheets("Urlaubsantrag").Range("B4:DX195").ExportAsFixedFormat xlTypePDF, Filename:="C:\DB\Urlaub\" & Range("BN12").Value & ".pdf", OpenAfterPublish:=True