Label (Caption) vor dem Drucken aktualisieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
Danke für deine Antwort.
Habe es ausprobiert. Aber auch im BeforePrint Ereignis aktualisiert er die Label nicht (habe die Routine um die Label zu benennen ins Ereignis gesetzt).
Habe ich dich falsch verstanden?
Wenn ich innerhalb des BeforePrint Ereignisses mir eine Message-Box mit den Variablen Inhalten und den Caption Inhalten anzeigen lasse ist es korrekt --> nur er zeigt im Ausdruck immer noch nur einen Namen an (meist (!!) den 1.).
Bsp:


Private Sub Workbook_BeforePrint(Cancel As Boolean)
' In Form setzen --> holt sich die schon gesetzten Namen nochmals
nname = Sheets("f").LNName.Caption
vname = Sheets("f").LVName.Caption
Sheets("f").LNName.Caption = nname ' setzt diese im BeforePrint Ereignis ins Label
Sheets("f").LVName.Caption = vname
MsgBox "Nachname: " & Sheets("F").LNName.Caption & "   Public: " & nname 'KORREKT
End Sub

' Jetzt PRINT --> NUR ein Name
Wie krieg ich es hin, dass der Drucker die aktuellen Label-Daten bekommt, bzw. das System mit diesen arbeitet (da auch im PrintPreview nur der eine name zu sehen ist)?
"Ich steh auf dem Schlauch..." :-)
Gruss
Michael

Hi Ralf
Ich weiss der Code Schnipsel sieht komisch aus. Dass kommt vom ausprobieren. Aber es sind schon die geänderten Namen die ich aus Verzweiflung im BeforePrint NOCHMALS sozusagen bestätige (um vielleicht dadurch eine Aktualisierung auszulösen).
Die Messagebox zeigt mir immer wunderbar, wie gewünscht den geänderten Namen (Bestätigt als Variable [nname] und als caption [LNName.caption]). Nur er druckt die alten Caption Infos - irgendwie aktualisert Windows (oder Excel) die Label nicht (da der Fehler auch im Vorschau Modus auftritt, denke ich nicht dass es am Drucker Spooler liegt).
Ich danke dir auf jedenfall um deine bisherigen Inputs - bin offen für jeden Tipp :-)
In anderen Forumsbeiträgen wird ein ähnliches Problem genannt. Wenn ein Label innerhalb einer USERFORM definiert ist. Dort genügt z.B. dann Userform1.LNName.Repaint, um den Inhalt auf den neuesten Stand zu bringen, vor dem Drucken. Leider weiss ich nicht wie ich ein Label, das innerhalb eines Tabellenblattes definiert ist, "Repainte". Probier gerade mit dem Shape Objekt rum, krieg aber nur Fehlermeldungen bei Anwendung von ".Repaint".
Es grüsst, weiterhin nicht verzagend *g*
Michael

Beliebteste Forumthreads (12 Monate)

Label (Caption) vor dem Drucken aktualisieren

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Label (Caption) vor dem Drucken aktualisieren

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread