OpenOffice.info

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

Hallo,

Vermutung ins Blaue hinein...

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

theindless

pdfProperties(0).Value = "writer_pdf_export"

pdfProperties(0).Value = "calc_pdf_export"

Hi,
habe dein Makro ausprobiert, und festgestellt, das ich nur die Zeile
[code]pdfProperties(0).Value = "writer_pdf_export"[/code]
in
[code]pdfProperties(0).Value = "calc_pdf_export"[/code]
ä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:
[attachment=0]msgbox.png[/attachment]
Gruß R

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

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]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[/code]

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

gruss
dirk