|
Nabend,
ich bins nochmal^^
möchte gerne eine komplette Seite als PDF drucken. Das klappt leider nicht.
Irgendwie wird nicht das komplette Blatt gedruckt.
Das ist die eigentliche PDF Funktion
' Erstellt von dem aktuellen Blatt eine PDF
Public Sub CreatePDF(Name As String, Ws As Worksheet)
Dim strfile As String
Dim myFile As Variant
strfile = Name
myFile = Application.GetSaveAsFilename _
(InitialFileName:=strfile, _
FileFilter:="PDF Dateien (*.pdf), *.pdf", _
Title:="Speicherort auswählen (VWGS_Server)")
Ws.ExportAsFixedFormat Type:=xlTypePDF, fileName:= _
myFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Und hier wird die zu exportierende Seite der PDF Funktion übergeben
Private Sub CommandButton1_Click()
Modul2.CreatePDF ActiveSheet.Name, ActiveSheet
End Sub
Was kann da wohl schief laufen?
Danke im vorraus
|