Anzeige
Archiv - Navigation
1464to1468
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

GetSaveAsFilename nur bestimmten Bereich als PDF

GetSaveAsFilename nur bestimmten Bereich als PDF
05.01.2016 10:55:34
Thomas
Sehr geehrte Damen und Herren,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: GetSaveAsFilename nur bestimmten Bereich als PDF
05.01.2016 11:04:49
Nepumuk
Hallo,
na einfach so:
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.Range("A1:F52").ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=vntFile, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
    End If
End Sub

Gruß
Nepumuk

Anzeige
AW: GetSaveAsFilename nur bestimmten Bereich als PDF
05.01.2016 14:00:55
Thomas
Super, funktioniert einwandfrei.
Vielen Dank

321 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige