Makro für PDF-Transport

[jerry_muc]

Hallo,
ich suche ein Makro, mit dem ich ausgewählte Tabellen als PDF exportieren kann und (jetzt kommts) - der Dateiname soll automatisch vergeben werden, also mit einer Nummer aus einer Zelle der ersten Tabelle verknüpft werden.

Konkret: ich habe ein Abrechnungs-tool gebastelt, das mir die Rechnung mit der entsprechenden Nummer als PDF speichern und exportieren soll, ohne dass ich jedesmal den Namen und nummer vergeben muss.

Einzelne Tabellenseiten sollen deshalb nur gespeichert werden, da ich einen Leistungskatalog angelegt habe, der nicht jedesmal mit abgespeichert werden soll.

Ich habe schon viel selbst geschafft, aber jetzt stosse ich an unüberwindbare Grenzen meines Wissens ... vielleicht kann mir jemand helfen oder einen Verweis senden.

Danke im Voraus
Jerry_muc

[Karolus]

Hallo Jerry

Bei deinem (Teil)-problem "automatische Namensvergabe" dürfte dir folgendes weiterhelfen:

http://www.ooo-portal.de/index.php?modu ... topic=3155

Alles weitere, also "speichern als Pdf", ist ja mit "Bordmitteln" lösbar ?!

Gruß Karo

[jerry_muc]

Alles weitere, also "speichern als Pdf", ist ja mit "Bordmitteln" lösbar ?!

Gruß Karo[/quote]

Danke für die Antwort, werde das mal probieren - schaut aber gut aus denke ich. Kann ich in diesem Makro auch gleich den Export nach *.PDF einbauen?

Jerry

[Karolus]

Hallo Jerry

Kann ich in diesem Makro auch gleich den Export nach *.PDF einbauen?

Ja, indem du folgenden Code vor 'end sub' einfügst und anpasst :

....snip....
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "dein/pfad/zur/datei/"& mystring &".pdf"
args1(1).Name = "FilterName"
args1(1).Value = "calc_pdf_Export"
args1(2).Name = "SelectionOnly"
args1(2).Value = true

dispatcher.executeDispatch(document, ".uno:ExportDirectToPDF", "", 0, args1())
.....snip....

(aufgezeichneter Code der Schaltfläche 'direkter pdf-Export)

Gruß Karo

[Laines]

Hallo

Leider hab ich euere Tips nicht verstanden

aber ich bekomm das einfach nicht hin.

Mein Tabellenblatt:
Tabelle1 Tabelle2 Tabelle3
in A1 steht der Name der verwendet werden soll

Code: Alles auswählen

Sub U_A1_speichern
dim dummy() 
myDoc = thisComponent
mySheet = myDoc.sheets(0)
mycell = mysheet.getCellByPosition(0,0)
'Lesen der Werte
myString=mycell.string
datei="D:\Eigene Dateien\Gewerbe\Rechnungen 1.x\REArchiv\"& mystring &".pdf"
dateiurl=converttourl(datei)
odoc=thisComponent
rem

dim document as object 
dim dispatcher as object 
rem ---------------------------------------------------------------------- 
rem get access to the document 
document = ThisComponent.CurrentController.Frame 
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") 

rem ---------------------------------------------------------------------- 
dim args1(2) as new com.sun.star.beans.PropertyValue 
args1(0).Name = "URL"
args1(0).Value = "Eigene Dateien\Gewerbe\Rechnungen 1.x\REArchiv\"& mystring &".pdf"
args1(1).Name = "FilterName" 
args1(1).Value = "calc_pdf_Export" 
args1(2).Name = "SelectionOnly" 
args1(2).Value = true 

dispatcher.executeDispatch(document, ".uno:ExportDirectToPDF", "", 0, args1()) 
End Sub

könnt ihr mir sagen was da falsch daran ist

Fehlermeldung = Allgemeiner Ein-/Ausgabefehler

als vorschlag kommt immer noch der name des Dokument´s

Grüße Laines