ich hab ein kleines Problem. Ich will eine Excel als PDF ausgeben lassen, bei der ich den Druckbereich per Formel dynamisch festlegen lasse. Im oberen Macro Druckbereich() läuft das super, aber im Unteren AktivesBlattToPdf(), dass auf die excel eigenen Daten zugreift, leider nicht.
Kann man die Patameter für den Druckbereich aus dem Makro Druckbereich in das Makro AktivesBlattToPdf() übernehmen?
Danke im Voraus Flo
Sub Druckbereich()
x = ActiveSheet.Cells(2, 8).Value
With ActiveSheet.PageSetup
.PrintArea = x
End With
Application.Dialogs(xlDialogPrint).Show
End Sub
Sub AktivesBlattToPdf()
ChDir ThisWorkbook.Path
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("H3").Value & Format(Date, "YYYY-MM-DD") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub