VBA Excel Openafterpublish

MallorcaA · 9. November 2022

Hallo zusammen,ich möchte gerne, dass mir die PDF angezeigt wird bevor sie abgespeichert wird.folgenden Code benutze ich, bekomme aber eine Fehler Meldung Kann jemand bitte helfen?ohne Openafterpublish:=True funktioniert der Code einwandfreiDanke Viele Grüße AndreasSub PdfSpeichernAuswertung'Querformat einstellen'ActiveSheet.PageSetup.Orientation = 2'PDF im bestimten Bereich Seite speichern'Range"C1:R30".SelectDim FName As StringFName = "\\Mac\Home\Desktop\PDF_Auswertung\" & _Date & "_" & Range"H5" & "_" & Range"J5" & ".pdf"ActiveSheet.ExportAsFixedFormat x

MallorcaA

Hallo Claus,
vielen Dank, das hat funktioniert.
Viele Grüße
Andreas

Claus B.

Hallo Andreas,
die PDF wird dir erst nach dem Speichern angezeigt.
Der Befehl OpenAfterPublish gehört zu dem Speicherbefehl, muss also kommagetrennt angefügt werden:

Sub PdfSpeichernAuswertung()

Dim FName As String

FName = "\\Mac\Home\Desktop\PDF_Auswertung\" & _

Date & "_" & Range("H5") & "_" & Range("J5") & ".pdf"

'Querformat einstellen'

With ActiveSheet

With .PageSetup

.Orientation = 2

.PrintArea = "C1:R30"

End With

'PDF im bestimten Bereich (Seite) speichern'

.ExportAsFixedFormat xlTypePDF, Filename:=FName, IgnorePrintAreas:=False, OpenAfterPublish:=True

End With

MsgBox ("PDF wurde erfolgreich gespeichert")

End Sub

Claus

Martin_S_

Hallo Andreas

Ja genau das habe ich gemeint. Innendrin ist im Excel immer englisch, nur in der Anzeige des GUI's gibt es Unterschiede.

Wie meinst du das, warum ich den Code nicht selber aufrufe? Wenn ich ein pdf generieren will, dann wie gesagt, umgeht es leider meinem VBA-Code der in Workbook_BeforePrint steht.

Ich weiss aber nicht wie ich direkt in diesem Code, das Seitenlayout formatieren kann, resp. auch die Formatierung der Grafik ändern kann? Weisst du wo ich das machen kann?

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _

Filename:="xx", _

Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=True

Martin.

Gijs_H

Hallo aw09,

danke für die Nachricht.

Auf dieser Website
finden Sie viele Informationen über VBA für Excel.

Wenn Sie weitere Fragen haben, stehen wir Ihnen gerne zu Verfügung.

MfG,

Gijs H.

Andreas Killer

Gibt es eine Site, wo ich besser in die VBA Programmierung einsteigen kann?

Hier ist ein Tutorial in Englisch, das behandelt keine Codeoptimierung direkt aber erläutert doch vieles andere was mit VBA zusammenhängt.
Excel Visual Basic Tutorial - VBA Macros Online Training
Andreas.

Hi,

willkommen im Windows Forum!

VBA Excel Openafterpublish - Similar Threads - VBA Excel Openafterpublish	Forum	Datum
Excel VBA Excel VBA: Hallo zusammen,kann mir jemand mit einem Code behilflich sein,Ich habe in einer Tabelle Projektdaten eine Zeile die den Status Status_Contract eines Projektes beschreibt.Folgende Stati enthält die...	Microsoft Office	14. September 2024
Excel VBA Excel VBA: Hallobenutze schon länger ein selbst geschriebenes Addin eine Berechnungsfunktion. Diese ist bei den AddIns Datei > Optionen > AddIn auch angezeigt und funktioniert auch über benutzerdefinierte...	Microsoft Office	9. Juni 2022
Excel - VBA Excel - VBA: Hallo Zusammen! Kann mir jemand sagen, wie ich es einfacher gestallten kann? Ich muss dies von Zeile 2 bis 1915 machen. LG Nikola Sub WennDann If Range"G2" = "" Then Range"D2" = Range"H2"...	Microsoft Office	8. Oktober 2020
VBA in Excel VBA in Excel: hallo, wenn ich auf entwicklertools gehe und möchte visual basic aufrufen bekomme ich nur eine grauen bildschirm bzw. kom ich nicht in den bearbeitungsmodus. wäre super wenn mir jemand...	Microsoft Office	17. Mai 2020
Excel VBA Excel VBA: Liebe Community! Ich habe Office 365. Ich habe eine Excel Vorlage mit VBA Codes. Diese Vorlage hat jetzt 3 Jahre perfekt funktioniert. Vor 1 Woche hat es auch noch besten funktioniert. und...	Microsoft Office	5. Februar 2020
excel vba excel vba: hi ich habe: Worksheets("test2").Range("b3").Copy Destination:=Worksheets("Mdax").Range("b20") was schön und gut funktioniert nur kann ich damit auch die Zielzelle definieren? In meinem...	Microsoft Office	24. Juli 2019
EXCEL-VBA. EXCEL-VBA.: Wie splittet man den Bildschirm bei Programmtests in 1. Code-Fenster, 2. EXCEL-Arbeitsblatt. Ich weiß, dass es geht aber nicht wie. Heißen Dank!	Microsoft Office	10. Dezember 2018

VBA Excel Openafterpublish