Hallo Liebes Forum,
ich bins mal wieder. Ich hab da ein Problem mit dem ich nicht weiter komme. Ich hab ein Makro mit dem ich eine Rechnungsnummer hochgezählt wird. Anschließend speicher ich diese Datei, makiere den Bereich in dem die Rechnung steht und drucke diesen Bereich 2mal aus. jetzt möchte gerne den makierten Bereich, bevor ich ihn ausdrucke, als PDF abspeichern. Das PDF soll dann "Rechnung + Zellinhalt G20" heissen und unter folgenden Pfad gespeichert werden:
C:\Dokumente und Einstellungen\Administrator\Desktop\Lieferschein\Alte Lieferscheine
Wie kann man sowas machen. Alle meine Versuche sind gescheitert.
Sub Lieferscheinnr_BeiKlick()
Range("G20").Select
Rechnungsnummer = ActiveCell.Value
Rechnungsnummer = Rechnungsnummer + 1
ActiveCell.Formula = Rechnungsnummer
ThisWorkbook.Save
Dim r As Range
Dim letzteZeile As Long
Dim letzteZelle As Range
For Each r In ActiveSheet.UsedRange
If r.Rows.Hidden = False Then
letzteZeile = r.Row
End If
Next
Range("A2:H" & letzteZeile).Select
Selection.PrintOut Copies:=2, Collate:=True
End Sub
Danke im vorraus...
Pascal