OpenOffice.info

Falls es noch aktuell ist, ich hatte das gleiche Problem, wurde hier diskutiert:

viewtopic.php?f=1&t=2790


Die Grafiken als Zeichen einbinden in bedingtem Absatz. funktikoniert bei uns nun seit jahren (vgl Datum...)

Also dann:

Sub DateiZuPDF
Dim oDoc as object
Dim Dateiname, Drucker as String
Dim AlteEinstellungen, NeueEinstellung
Dim arg()
oDoc = thisComponent
document = oDoc.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem *** Datei erstmal speichern ***
DocCtl = oDoc.getCurrentController()
oForms = oDoc.Drawpage.Forms

rem ********** Datei Speichern **************************************************
oDoc.GraphicObjects.getByName("Briefpapier1").print = false
oDoc.GraphicObjects.getByName("Briefpapier2").print = false
oDoc.GraphicObjects.getByName("Briefpapier3").print = false
oDoc.TextFrames.getByName("DocuWareInfo").print = false

Dateiname = GetVariable(oDoc,"DateiName")
URL = "H:\Ablage zur Verteilung\"
sURL = ConvertToURL(URL + Dateiname)
oDoc.storeAsURL(sURL, arg())

rem *** Datei in PDF umwandeln ***

oDoc.GraphicObjects.getByName("Briefpapier1").print = true
oDoc.GraphicObjects.getByName("Briefpapier2").print = true
oDoc.GraphicObjects.getByName("Briefpapier3").print = true
oDoc.TextFrames.getByName("DocuWareInfo").print = False

rem ************ Datei erstellen und verschicken ******************************

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

oDoc.GraphicObjects.getByName("Briefpapier1").print = false
oDoc.GraphicObjects.getByName("Briefpapier2").print = false
oDoc.GraphicObjects.getByName("Briefpapier3").print = false
oDoc.TextFrames.getByName("DocuWareInfo").print = false

End Sub

Sub DateiZuPDFEMail
Dim oDoc as object
Dim Dateiname, Drucker as String
Dim AlteEinstellungen, NeueEinstellung
Dim arg()
oDoc = thisComponent
document = oDoc.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem *** Datei erstmal speichern ***
DocCtl = oDoc.getCurrentController()
oForms = oDoc.Drawpage.Forms

rem ********** Datei Speichern **************************************************
oDoc.GraphicObjects.getByName("Briefpapier1").print = false
oDoc.GraphicObjects.getByName("Briefpapier2").print = false
oDoc.GraphicObjects.getByName("Briefpapier3").print = false
oDoc.TextFrames.getByName("DocuWareInfo").print = false

Dateiname = GetVariable(oDoc,"DateiName")
URL = "H:\Ablage zur Verteilung\"
sURL = ConvertToURL(URL + Dateiname)
oDoc.storeAsURL(sURL, arg())

rem *** Datei in PDF umwandeln ***

oDoc.GraphicObjects.getByName("Briefpapier1").print = true
oDoc.GraphicObjects.getByName("Briefpapier2").print = true
oDoc.GraphicObjects.getByName("Briefpapier3").print = true
oDoc.TextFrames.getByName("DocuWareInfo").print = False

rem ************ Datei erstellen und verschicken ******************************

dispatcher.executeDispatch(document, ".uno:SendMailDocAsPDF", "", 0, Array())

oDoc.GraphicObjects.getByName("Briefpapier1").print = false
oDoc.GraphicObjects.getByName("Briefpapier2").print = false
oDoc.GraphicObjects.getByName("Briefpapier3").print = false
oDoc.TextFrames.getByName("DocuWareInfo").print = false
End Sub

Sub DateiZuTobit
Dim oDoc as object
Dim Dateiname, Drucker as String
Dim AlteEinstellungen, NeueEinstellung
Dim arg()
oDoc = thisComponent

rem *** Datei erstmal speichern ***
DocCtl = oDoc.getCurrentController()
oForms = oDoc.Drawpage.Forms

oDoc.GraphicObjects.getByName("Briefpapier1").print = false
oDoc.GraphicObjects.getByName("Briefpapier2").print = false
oDoc.GraphicObjects.getByName("Briefpapier3").print = false
oDoc.TextFrames.getByName("DocuWareInfo").print = false

Dateiname = GetVariable(oDoc,"DateiName")
URL = "H:\Ablage zur Verteilung\"
sURL = ConvertToURL(URL + Dateiname)
oDoc.storeAsURL(sURL, arg())

rem *** Datei in PDF umwandeln ***
AlteEinstellungen = oDoc.getPrinter()
NeueEinstellungen = AlteEinstellungen
NeueEinstellungen(0).value = "Tobit FaxWare"
NeueEinstellungen(2).value = 1
oDoc.setPrinter(NeueEinstellungen)
oDoc.GraphicObjects.getByName("Briefpapier1").print = true
oDoc.GraphicObjects.getByName("Briefpapier2").print = true
oDoc.GraphicObjects.getByName("Briefpapier3").print = true
oDoc.TextFrames.getByName("DocuWareInfo").print = False
oDoc.print(arg())
oDoc.GraphicObjects.getByName("Briefpapier1").print = false
oDoc.GraphicObjects.getByName("Briefpapier2").print = false
oDoc.GraphicObjects.getByName("Briefpapier3").print = false
oDoc.TextFrames.getByName("DocuWareInfo").print = false
End Sub

Ich weiß, dass der Code nicht ganz professionel ist. Aber für den Moment tut das Makro das was es soll. An einer neuen Version wird gerade gearbeit.

saturus hat geschrieben:
Wenn das deinem Problem nahe kommt, einfach melden. Ich kann dir die Code geben!

Ja, das kommt meinem Problem sehr nahe, ich wäre an Code interessiert

Gruß

Bene

Hallo,

ich habe bei uns in der Firma ein ähnliches Problem gehabt und dies mit Hilfe eines kleinen Makros gelöst.

Drucken:
Ausdruck ohne Logo und Briefpapier (da wie in deinem Falle schon auf dem gedruckten Briefpapier vorhanden)

PDF für Archivierung und E-Mail
Erstellen der Datei mit Logo und Briefpapier

Fax über Tobit (geht auch mit jedem anderen PC Fax)
Druck mit Logo und Briefpapier

Wenn das deinem Problem nahe kommt, einfach melden. Ich kann dir die Code geben!

Gruß

Hallo,

ich habe fertig bedrucktes Briefpapier. Nun möchte ich mir eine Vorlage erstellen, die den Platz in dem bedruckten Papier nutzt.

Da oft Briefe als PDF verschickt werden, möchte ich in dieser Vorlage das fertig bedruckte Briefpapier nachbauen und schon gedruckte Elemente beim Ausdrucken nicht mit ausdrucken lassen. Das funktioniert ja auch problemlos, wird für den Export in ein PDF jedoch mit übernommen. Gibt es einen Trick, das feiner zu definieren oder muss ich mir ein Makro schreiben?

Herzlichen Gruß

Benedikt