GetSaveAsFilename nur bestimmten Bereich als PDF
05.01.2016 10:55:34
Thomas
ich suche mir jetzt schon stundenlang die Finger wund ;) leider ohne Ergebnis.
Folgende Problemstellung:
Ich habe ein Rechnungsdokument erstellt. Nun möchte ich mittels Schaltfläche die Rechnung automatisch in dem
Rechnungsordner als PDF ablegen und dies mit dem Namen und Datum des Kunden. Funktioniert wunderbar.
Leider habe ich neben der Rechnung einige Anmerkungen, welche nur für mich sind und nicht gedruckt werden sollen. Wenn ich aber die Schaltfläche "Drucken" betätige wir das ganze Blatt (Rechnung) abgespeichert, ich kann also nicht verhindern, dass diese Anmerkungen auch als pdf gespeichert werden.
Mein Code:
Sub saveAsPDF()
Dim vntFile As Variant
ChDrive "Z"
ChDir "Z:\Documents\02 Immobilien\01 Immobilien\Schmiedhäusl\01 Verwaltung\Rechnungen"
vntFile = Application.GetSaveAsFilename(ActiveSheet.Range("h3").Value & ".pdf", _
"PDF Dateien (*.pdf), *.pdf", Title:="Als PDF Speichern")
If vntFile False Then
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=vntFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End If
End Sub
Es sollte eigentlich immer nur die erste Seite gedruckt werden oder von A1:F52.
Würde mich freuen, wenn mir jemand helfen kann.
Viele Grüße
Tom