letzte zeile und spalte
13.07.2024 21:58:28
Manuel Kofler
ich möchte ein pdf drucken und habe folgenden Code:
Application.PrintCommunication = False
With Application.FileDialog(msoFileDialogSaveAs)
.FilterIndex = 25
.InitialFileName = "c:\.pdf"
If .Show Then Range(Cells(1, Columns.Count), Cells(Rows.Count, 1).End(xlUp)).ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=.SelectedItems(1), Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End WithEs druckt allerdings die letzte Zeile nicht. Anscheinend funktioniert das mit der range nicht so richtig. Sieht hier jemand einen Fehler?
P.S.: wie kann man das Seitenformat auf Hochformat ändern?
Danke für dieHilfe!
Beste Grüße Manuel
Anzeige