CorelDraw für Schilder, Etiketten zu Lasern verwenden - Möglichkeiten....

[koter]

Hallo Drommer,

@Koter: Alles ausgiebig getestet, klappt wunderbar ohne Fehler. Vielen, vielen Dank! Wenn es jetzt noch möglich ist nur einmal das Makro starten zu müssen und trotzdem jedes mal das Einstellungsfenster aufrufen zu lassen wäre ich überglücklich...

wenn Du „Einstellungen“ in die Start-Prozedur schreibst, startet das Einstellungsfenster bei jedem Start. Die Prozedur muss also so aussehen:

Code:

Sub Start()

    Dim Dateiname As String
    If Not Vorlage Then Exit Sub
    Dateiname = Replace(Replace("Druckdatei-" & Date, ".", "-") & "-" & Time, ":", "-")
    ActiveDocument.Unit = cdrMillimeter
    
    Einstellungen
    
    If xltest Then
        Call Druckdatei(Dateiname)
    End If
    
    Set xl = Nothing
    Set wb = Nothing
    Set Tabelle = Nothing
    Set Zellen = Nothing
    Set xlr = Nothing
    
End Sub

Bei einer Vorlage, die zum ersten Mal vom Makro bearbeitet wird, muss die „Fertig“-Schaltfläche zweimal angeklickt werden.

...Noch allgemein ne Frage zu den Makros: Wie sieht es mit Updates von Corel und Windows aus? Habe ich da etwas zu befürchten das die Makros hinterher nicht mehr funktionieren?...

Leider Ja! Gerade bei einem Wechsel auf eine neue Version kann es vorkommen, dass Makros angepasst werden müssen.

...Welche Tipps gibt es da?...

Leider Keine! Da man nicht vorhersagen kann, was die Updates von Corel oder Microsoft verursachen, gibt es keine sinnvolle Prävention.

Gruß

Koter