[gelöst] warum muss msgbox 2x bestätigt werden ?

[junmod]

hallo forum,

ich probiere schon eine weile meine speicheraktion "ods als pdf" im makro mit einer messagebox zu beenden. das sieht auch soweit ganz gut aus, aber wenn ich auf "ok" klicke, dann kommt sie nocheinmal. kann mir da jemand bitte weiterhelfen?

Code: Alles auswählen

REM  *****  BASIC  *****

Sub BestellungSpeichernAlsPDF

REM PDF-Name aus Tabellenzelle generieren

Dim PDFpfad as String

PDFcalc = thisComponent
PDFsheet = PDFcalc.sheets(0)
PDFcell = PDFsheet.getCellRangeByName("AE9")
PDFstring = PDFcell.String
PDFpfad = "file:///D:/PDF-Bestellungen/" & "Bestellung." & PDFstring & ".pdf"

REM PDF-Datei speichern

Dim pdfProperties(1) as new com.sun.star.beans.PropertyValue

pdfProperties(0).Name = "FilterName"
pdfProperties(0).Value = "writer_pdf_export"
ThisComponent.storeToUrl( PDFpfad, pdfProperties( ) )

REM ODS-Datei speichern

Dim ODScalc as Object

ODScalc = thisComponent
ODScalc.store()

REM Messagebox

Dim PDFempftext as String

PDFempfcell = PDFsheet.getCellRangeByName("A10")
PDFempfstring = PDFempfcell.String
PDFempftext = "Die Bestellung " & PDFstring & " an " & PDFempfstring

msgbox PDFempftext & CHR(13) & CHR(13) & "wurde erfolgreich gespeichert!" & CHR(13), 64, "Herzlichen Glückwunsch!"

End Sub

ich bin anfänger und würde mich freuen wenn mir jemand weiterhelfen könnte.

gruss
dirk

[F3K Total]

Hi,
habe dein Makro ausprobiert, und festgestellt, das ich nur die Zeile

Code: Alles auswählen

pdfProperties(0).Value = "writer_pdf_export"

in

Code: Alles auswählen

pdfProperties(0).Value = "calc_pdf_export"

ändern mußte, damit die pdf Datei überhaupt exportiert werden konnte.
Ein doppeltes OK kann ich nicht feststellen, die Msgbox sieht bei mir dann so aus:

msgbox.png (11.94 KiB) 731 mal betrachtet

Gruß R

[theindless]

Hallo,

Vermutung ins Blaue hinein...

Ist das Macro irgendwie 2x hinterlegt?
Würde evtl nur 1 Datei aber 2 MsgBox ergeben.

theindless

[junmod]

hallo,

@ F3K Total: danke für den hinweis, ich hab es schon geändert, auch wenn die pdf komischerweise trotzdem gespeichert wurde.

@ theindless: danke auch für deine antwort, denn durch deine vermutung... siehe unten


ich habe den fehler gerade selbst gefunden, ich hatte meine schaltfläche "jetzt speichern" mit 2 ereignissen ausgestattet, nämlich "aktion ausführen" und "aktion bestätigen". ein ereignis gelöscht und schon ist es so wie es sein soll.


trotzdem nochmal danke.

gruss
dirk