Thema Datum  Von Nutzer Rating
Antwort
08.08.2019 13:55:35 J4it
NotSolved
Blau PDF aus Sheet mit Speicherortabfrage und Namensformat
 08.08.2019 15:18:34 Torsten
*****
Solved
08.08.2019 15:22:06 Torsten
NotSolved
08.08.2019 16:26:13 J4it
NotSolved
08.08.2019 17:41:20 J4it
Solved
09.08.2019 07:13:29 Torsten
*****
Solved
09.08.2019 13:38:50 J4it
NotSolved
09.08.2019 14:08:25 Torsten
*****
Solved
12.08.2019 09:49:08 Gast80321
NotSolved
12.08.2019 11:10:42 Torsten
*****
NotSolved
25.11.2019 16:00:43 J4it
NotSolved
26.11.2019 08:01:29 Torsten
NotSolved
26.11.2019 09:37:12 J4it
NotSolved
26.11.2019 09:45:58 Torsten
NotSolved
26.11.2019 13:09:43 J4it
NotSolved
18.12.2019 08:25:49 J4it
NotSolved

Ansicht des Beitrags:
Von:
Torsten		 Datum:
08.08.2019 15:18:34		 Views:
602		 Rating:
     
Antwort:
 Nein
Thema:
PDF aus Sheet mit Speicherortabfrage und Namensformat

Hallo,

versuch mal das hier:

Public Sub Save_Workbook_As_PDF()

Dim i As Integer, PDFindex As Integer
 
    With Application.FileDialog(msoFileDialogSaveAs)
            
        PDFindex = 0
        For i = 1 To .Filters.Count
            If InStr(VBA.UCase(.Filters(i).Description), "PDF") > 0 Then PDFindex = i
        Next

        .Title = "Save workbook as PDF"
        .InitialFileName = "C:\Musterordner\Bezeichnung Name Projekt Datum.pdf"
        .FilterIndex = PDFindex
        
        If .Show Then
            ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=.SelectedItems(1), _
                Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
        End If
    
    End With
    
End Sub

Gruss Torsten

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
08.08.2019 13:55:35 J4it
NotSolved
Blau PDF aus Sheet mit Speicherortabfrage und Namensformat
 08.08.2019 15:18:34 Torsten
*****
Solved
08.08.2019 15:22:06 Torsten
NotSolved
08.08.2019 16:26:13 J4it
NotSolved
08.08.2019 17:41:20 J4it
Solved
09.08.2019 07:13:29 Torsten
*****
Solved
09.08.2019 13:38:50 J4it
NotSolved
09.08.2019 14:08:25 Torsten
*****
Solved
12.08.2019 09:49:08 Gast80321
NotSolved
12.08.2019 11:10:42 Torsten
*****
NotSolved
25.11.2019 16:00:43 J4it
NotSolved
26.11.2019 08:01:29 Torsten
NotSolved
26.11.2019 09:37:12 J4it
NotSolved
26.11.2019 09:45:58 Torsten
NotSolved
26.11.2019 13:09:43 J4it
NotSolved
18.12.2019 08:25:49 J4it
NotSolved