Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

funzt nicht !?!?!?!?!
Autor: Chrisz
Datum: 28.02.02 21:22
Hallo Zusammen, kann mit einer hierbei helfen: Das scheint nicht mehr zu funktionieren. Habe meine Labels und Textfelder umbenannt in: Label1(1) , Label1(2),Label1(3) usw. sowie die Textfelder dazu: Text1(1), Text1(2), Text1(3) etc. doch jetzt will er mir nicht mehr Drucken. vorher hatte ich label1, label2, label3 etc und : text1, text2, text3, etc Villeicht weiß jemand Rat, Danke........ Dim C As Control With Printer ' Maßeinheit auf mm setzen .ScaleMode = 6 ' alle Textfelder durchlaufen For Each C In Me.Controls If TypeOf C Is TextBox Then If C.Text <> "" Then ' zunächst Labelfeld drucken Printer.Print Me.Controls("Label" & Mid(C.Name, 5)).Caption; ' jetzt Textbox-Inhalt drucken (Beginn 30 mm von links) .CurrentX = 30 Printer.Print C.Text End If End Select End If Next ' Druckauftrag beenden .EndDoc End With

funzt nicht !?!?!?!?!	61	Chrisz	28.02.02 21:22
Re: funzt nicht !?!?!?!?!	282	unbekannt	28.02.02 21:32
Oder so... (oT)	282	Dieter	28.02.02 21:34
Nur keine Panik	275	Dieter	28.02.02 21:33
Die Rettung )	37	Chrisz	28.02.02 21:49
Murphies Gesetze beachtet ? ... nur eine Frage (oT)	266	unbekannt	28.02.02 21:53

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen