Hallo rasta,
also, ich habe eine Liste von Namen.
Auf jedem Etikett soll ein Name stehen, d.h. 1. Etikett, 1. Name - 2. Etikett, 2. Name... usw.
Das Layout soll immer gleich bleiben.
Mache ich den Seriendruck "zu Fuß", sprich, alle Einstellungen selbst, klappt es wunderbar.
Mache ich es "zu Fuß" in einem Makro, wird das Layout zerschossen und ich habe nicht, wie sonst 3 Etiketten nebeneinander, sondern alle untereinander.
Der Code sieht wie folgt aus:
ActiveDocument.MailMerge.MainDocumentType = wdMailingLabels
ActiveDocument.MailMerge.OpenDataSource Name:="D:\Etikettendruck.xls", _
ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:="Gesamtes Tabellenblatt", _
SQLStatement:="", SQLStatement1:=""
Application.MailingLabel.DefaultPrintBarCode = False
Application.MailingLabel.CreateNewDocument Name:="", Address:="", AutoText _
:="ExtrasEtikettenErstellen1", LaserTray:=wdPrinterDefaultBin, _
ExtractAddress:=False
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = False
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=True
End With
Aber wie gesagt, der zerhackt mir das Layout und wirft auch noch einen Fehler aus.
Aber kannst ja mal schauen und dich melden.
mfg
Michael
Rasta schrieb am 20.09.2004 09:20:12:
hallo cobra,
habe ich dein problem richtig verstanden? :
du möchtest etiketten drucken, pro seite ein anderes layout.
mit dem makro druckt es zwar, aber immer nur ein layout?
oder wird das layout zerschossen?
bitte poste mal den makro-code
gruß
rasta
Cobra-1984 schrieb am 20.09.2004 08:53:01:
Hallo,
ich habe ein Problem bei der Erstellung von Etiketten mit dem Seriendruck.
Die Datenquelle ist eine Excel-Datei.
Wenn ich diese öffne, kommt der Dialog wo ich das Etikettenformat einstellen kann und danach kann ich die Seriendruck-Felder einfügen.
Wenn ich diese in der richtigen Reihenfolge einfüge, und dann auf "ausführen" klicke kommt auch das raus was ich haben will.
Eine Seite Etiketten mit jeweils einem anderen Etikett.
Wenn ich dieses ganze nun in ei Makro schreiben will, funktioniert es nicht mehr. Die Reihenfolge der Seriendruck-Felder stimmt zwar, aber das Etikettenlayout ist nicht mehr das richtige.
Kann mir da jemand helfen wie ich den gesamten Vorgang in ein Makro bekomme? |