Excel VBA-Forum - Das Forum zu Microsoft Excel VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Weihnachtswunsch,nur 1. Seite als pdf speichern	24.12.2021 13:22:54	Hans Freiberg
Weihnachtswunsch,nur 1. Seite als pdf speichern	24.12.2021 13:53:53	Gast51458
Weihnachtswunsch,nur 1. Seite als pdf speichern	24.12.2021 14:18:03	Gast11217
Weihnachtswunsch,nur 1. Seite als pdf speichern	24.12.2021 14:35:17	ralf_b
Weihnachtswunsch,nur 1. Seite als pdf speichern	25.12.2021 10:35:16	Gast11057
Weihnachtswunsch,nur 1. Seite als pdf speichern	26.12.2021 13:35:29	Gast96184

Ansicht des Beitrags:

Von:
Hans Freiberg

Datum:
24.12.2021 13:22:54

Views:
392

Rating:

Antwort:

Thema:
Weihnachtswunsch,nur 1. Seite als pdf speichern

Hi, VBA Freunde,

mein Makro funzt prima. Druckt mir aber immer 20 Seiten als pdf aus. Ich brauche nur die 1. Seite als pdf. Für mich zu schwierig.

Wer hilft mir?

Gruß aus Österreich

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
Weihnachtswunsch,nur 1. Seite als pdf speichern	24.12.2021 13:22:54	Hans Freiberg
Weihnachtswunsch,nur 1. Seite als pdf speichern	24.12.2021 13:53:53	Gast51458
Weihnachtswunsch,nur 1. Seite als pdf speichern	24.12.2021 14:18:03	Gast11217
Weihnachtswunsch,nur 1. Seite als pdf speichern	24.12.2021 14:35:17	ralf_b
Weihnachtswunsch,nur 1. Seite als pdf speichern	25.12.2021 10:35:16	Gast11057
Weihnachtswunsch,nur 1. Seite als pdf speichern	26.12.2021 13:35:29	Gast96184