[gelöst] warum muss msgbox 2x bestätigt werden ?
Verfasst: Fr, 11.05.2012 14:11
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?
ich bin anfänger und würde mich freuen wenn mir jemand weiterhelfen könnte.
gruss
dirk
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 Subgruss
dirk