Thema Datum  Von Nutzer Rating
Antwort
05.09.2018 18:35:33 CeeLeeT
NotSolved
05.09.2018 19:23:57 xlKing
NotSolved
Rot Excel VBA - Druckbereich festlegen + Letzte Zeile
21.12.2021 17:00:27 Hans Freiberg
NotSolved
22.12.2021 18:58:34 ralf_b
NotSolved
22.12.2021 19:05:46 Gast12831
NotSolved
23.12.2021 12:28:08 Gast52522
NotSolved
23.12.2021 13:23:52 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Hans Freiberg
Datum:
21.12.2021 17:00:27
Views:
130
Rating: Antwort:
  Ja
Thema:
Excel VBA - Druckbereich festlegen + Letzte Zeile

Servus,

ich bin zu doof. Bitte um Hilfe. Ich will nur die 1.Seite von dem pdf

LG Hans

Sub AlsPDFSpeichern()
Dim pdfDateiName As String
Dim pdfname As Variant

    pdfDateiName = ActiveSheet.Range("O11") & ".pdf"
    pdfname = Application.GetSaveAsFilename(InitialFileName:=pdfDateiName, FileFilter:="PDF files, *.pdf", Title:="PDF speichern")
    If pdfname <> False Then
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfDateiName, _
        Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True
    Else
        Exit Sub
    End If
End Sub


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
05.09.2018 18:35:33 CeeLeeT
NotSolved
05.09.2018 19:23:57 xlKing
NotSolved
Rot Excel VBA - Druckbereich festlegen + Letzte Zeile
21.12.2021 17:00:27 Hans Freiberg
NotSolved
22.12.2021 18:58:34 ralf_b
NotSolved
22.12.2021 19:05:46 Gast12831
NotSolved
23.12.2021 12:28:08 Gast52522
NotSolved
23.12.2021 13:23:52 ralf_b
NotSolved