ich würde gerne den Druckbereich des aktuellen Tabellenblatts in eine PDF-Datei kopieren.
Vielen Dank für eure Hilfe.
mfg
Fritz
Sub PdfDruck()
Range("B6").Select
ActiveCell.FormulaR1C1 = "Hallo"
Application.ActivePrinter = "FreePDF XP auf Ne02:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"FreePDF XP auf Ne02:", Collate:=True
End Sub
Zelle B6 wählen - "Hallo" reinschreiben - Drucker auswählen - drucken - - - - FERTIG
Gruß Ralf