Beiträge: 4.892
Themen: 198
Danke erhalten: 304 in 282 Posts
Danke gesagt: 65
Registriert seit: 14.12.2011
Fehlt dir ne Funktion in Corel Draw, hat der Koter bestimmt ein Macreo................
ok schlecht gereimt, aber wieder mal Klasse von dir gelöst.
Das werde ich mir sicher auch abspeichern - Danke
•
Beiträge: 1.431
Themen: 11
Danke erhalten: 270 in 229 Posts
Danke gesagt: 26
Registriert seit: 24.03.2012
norre schrieb:Das werde ich mir sicher auch abspeichern
Hallo norre,
funktioniert das Ding bei Dir?
Gruß
koter
•
Beiträge: 602
Themen: 28
Danke erhalten: 16 in 14 Posts
Danke gesagt: 2
Registriert seit: 19.10.2010
Bin zwar nich Norre aba ich habs auch mal ausprobiert...
ich habs jetzt so verstanden das ich einfach einen x-beliebigen
Text schreibe .. im ObjektManager das Ding umbenenne und dann solls funktionieren ... ja?
also bei mir gehts nicht wenn ich über die Druckvorschau gehe.. da zeigt er mir immer meinen x-beliebigen text
an und auch beim Druck bleibt es dabei..
wenn ich direkt aus dem Dokument drucke ohne über die Druckvorschau zu gehen..
ist der 1te Ausdruck mein x-beliebiger Text.. sobald ich dann nochmal ausdrucke wirds ins
aktuelle Datum umgewandelt...
soweit mal meine Versuche
Win7 64 Gedöns und X6 mit allen Patchgedöns
freundlich grüsst
Suc
•
Beiträge: 1.029
Themen: 37
Danke erhalten: 2 in 2 Posts
Danke gesagt: 0
Registriert seit: 26.12.2009
Hallo koter…;-)
Habe Win7 Ultimate - 64 Bit und Corel X6.2 - 64 Bit.
Da ich momentan keinen Drucker zur Verfügung habe, hat meine Schwester, konnte ich nur
das Makro über den „Makro - Manager“ ausführen. Klappt wunderbar so. Sobald ich meinen Drucker
wieder habe wird gleich getestet. Habe mir gleich ein Dokument mit allen vier Ausgabeformaten
angelegt. Alles in einer Zeile und ausgerichtet. Das Format das ich benötige wird dann eingeblendet.
Tolles Makro. Danke!
•
Beiträge: 4.892
Themen: 198
Danke erhalten: 304 in 282 Posts
Danke gesagt: 65
Registriert seit: 14.12.2011
koter schrieb:Hallo norre,
funktioniert das Ding bei Dir?
Hallo Koter, ja funktioniert
. Ich habe allerdings die Zeilen mit dem Druck rausgenommen und mir ein Icon zur manuellen Aktualisierung angelegt.
•
Beiträge: 31
Themen: 4
Danke erhalten: 0 in 0 Posts
Danke gesagt: 0
Registriert seit: 28.11.2012
Mann, da war ja noch richtig was los hier im Thread gestern Abend. :-)
Ich habe es jetzt gerade mal ausprobiert, es funktioniert, allerdings genauso wie suc beschreibt, erst beim 2. Druck, aber immerhin, besser als gar keine Automation
Die Dokumentation über VBA Makros habe ich auch mittlerweile gefunden, da werde ich mich dann mal durchwühlen, wenn ich viel Zeit habe, ist ein interessantes Thema, nur leider ist es nochmal so schwer zu verstehen, wenn es englisch erklärt ist.
Aber vielen Dank für deine Erstellung, muss ich mir unbedingt auch mal aneignen.
LG Lissycat :daumen:
•
Beiträge: 4
Themen: 0
Danke erhalten: 0 in 0 Posts
Danke gesagt: 0
Registriert seit: 30.08.2024
Hallo Zusammen, ich komme aus der Zukunft (2024) und bin auf diesen Post gestoßen. Der hat mir shcon sehr geholfen. Nun meine Frage an den Code Ersteller: Ist es möglich, dass man anstatt "Print" auch "PDF freigeben" macht. Wie das in der Programmiersprache heißt, weiß ich nicht.
Also bei Augabe als PDF soll das Datum aktuallisiert werden.
Freu mich auf eine Antwort und hoffe, dass hier überhaupt noch jemand aktiv ist.
Beste Grüße
Betriebssystem / Grafik-Software: Windows / Corel Draw
•
Beiträge: 1.431
Themen: 11
Danke erhalten: 270 in 229 Posts
Danke gesagt: 26
Registriert seit: 24.03.2012
Hallo Siggi,
Grüße aus der Vergangenheit und willkommen im Forum!
Leider kann man kein Makro vor der Ausgabe als PDF automatisch ausführen lassen.
Man könnte von einem Makro die Datumsangabe aktualisieren und anschließend die PDF-Ausgabe durchführen lassen.
Falls Dir das etwas nützen würde, gib Bescheid.
Gruß
Koter
•
Beiträge: 4
Themen: 0
Danke erhalten: 0 in 0 Posts
Danke gesagt: 0
Registriert seit: 30.08.2024
Hallo Koter, das habe ich mittlerweile auch herausgefunden.
Ja das wäre dann alternativ super.
Wäre es dann möglich, das in der Befehlsleiste oben als ICON zum draufklicken zu haben.
Ein Icon dafür könnt eich erstellen. Aber ob man das dann dort oben hereinbekommt weiß ich nicht.
Danke!
Betriebssystem / Grafik-Software: Windows / Corel Draw
•
Beiträge: 4
Themen: 0
Danke erhalten: 0 in 0 Posts
Danke gesagt: 0
Registriert seit: 30.08.2024
Ich habe mal einen Code gemacht der tut auch das was er soll.
Nur möchte ich eigentlich nicht in das Dialogfeld "Export" sondern in den Dialog "Als PDF ausgeben"
Wenn ich aber im Code doc.PublishToPdf rein mache bekomme ich eine Fehlermeldung.
Wenn ich hingegen doc.export rein mache funktioniert es.
Warum tut sich corel mit PublishToPdf so schwer?
Das hier funktioniert:
Code:
Sub UpdateDateAndExport()
Dim doc As Document
Dim shape As shape
Dim currentDate As String
Dim shapeName As String
' Aktuelles Datum im Format "DD.MM.YY"
currentDate = Format(Date, "DD.MM.YY")
' Aktuelles Dokument abrufen
Set doc = ActiveDocument
' Alle Formen im Dokument durchlaufen
For Each x In ActiveDocument.SelectableShapes
' Überprüfen, ob die Form ein Grafiktext (TextShape) ist
If x.Name = "DatumHeute" Then
x.text.Story = Date
ElseIf Left(x.Name, 10) = "DatumHeute" Then
ds = Split(x.Name, "(")
FormatString = Left(ds(1), Len(ds(1)) - 1)
x.text.Story = Format$(Date, FormatString)
FormatString = ""
End If
Next
' Dokument speichern
doc.Save
' Dokument als PDF exportieren
doc.Export FilePath, cdrPDF, pdfExportOptions
End Sub
Das hier funktioniert nicht:
Code:
Sub UpdateDateAndExport()
Dim doc As Document
Dim shape As shape
Dim currentDate As String
Dim shapeName As String
' Aktuelles Datum im Format "DD.MM.YY"
currentDate = Format(Date, "DD.MM.YY")
' Aktuelles Dokument abrufen
Set doc = ActiveDocument
' Alle Formen im Dokument durchlaufen
For Each x In ActiveDocument.SelectableShapes
' Überprüfen, ob die Form ein Grafiktext (TextShape) ist
If x.Name = "DatumHeute" Then
x.text.Story = Date
ElseIf Left(x.Name, 10) = "DatumHeute" Then
ds = Split(x.Name, "(")
FormatString = Left(ds(1), Len(ds(1)) - 1)
x.text.Story = Format$(Date, FormatString)
FormatString = ""
End If
Next
' Dokument speichern
doc.Save
' Dokument als PDF exportieren
doc.PublishToPDF FilePath, cdrPDF, pdfExportOptions
End Sub
Betriebssystem / Grafik-Software: Windows / Corel Draw
•