Ich habe in in einem Arbeitsblatt 4 Bereiche, die jeweils eine Lieferantenbestellung darstellen und die jeweils eine variable Laenge von einer bis zwei Seiten haben.
Nun habe ich einen Pdf-Export, der mir aber nur alle 4 Bereiche (Auswahl ueber Druckbereich) in ein Pdf exportiert, der wie folgt aussieht:
Private Sub CommandButton1_Click()
Dim varPath As Variant
varPath = Application.GetSaveAsFilename( _
InitialFileName:=ThisWorkbook.Path & "\" & ActiveSheet.Name, _
FileFilter:="PDF(*.pdf), *.pdf", _
Title:="Speichern als PDF")
If Not varPath = False Then
ActiveSheet.ExportAsFixedFormat 0, varPath, _
OpenAfterPublish:=True
End If
End Sub
Da die Bestellungen aber nun immer per Email versandt werden, brauche ich die Pdfs einzeln.
Hat jemand eine Idee, wie dies umzusetzen waere?
Also wie kann ich 4 verschiede Bereiche in meinem Arbeitsblatt definieren, die je nach Bestellmenge auch noch unterschiedlich gross sind?
Und wie kann ich diese dann einzeln als Pdf exportieren?
Ich freue mich ueber jede Hilfe!
Viele Gruesse,
schluk5