Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Drucken
Autor: VBRunner
Datum: 07.09.03 20:24
Hi Peacemaker, um den Code zu verkürzen kannst du das ganze auch in eine Prozedur schreiben und die Werte als Argument übergeben. sub Text_drucken() Printer.ScaleMode = 6 Text_aufbauen( "Arial",8,1000,1350,txtName.Text) Text_aufbauen( "Arial",8,1800,1350,cboAbteilung.Text) Text_aufbauen( "Arial",8,3000,870,txtId.Text) Printer.EndDoc end sub sub Text_aufbauen( mFontname as String,mFontSize as integer,mX as long, _ mY as long, mText as String) Printer.Font =mFontname Printer.FontSize =mFontSize Printer.CurrentX = mmToTwips(mX) Printer.CurrentY = mmToTwips(mY) Printer.Print mText end sub cu, VBRunner

Drucken	524	Peacemaker	07.09.03 00:33
Re: Drucken	326	Master	07.09.03 08:40
Re: Drucken	318	VBRunner	07.09.03 20:24
Re: Drucken	308	Peacemaker	07.09.03 22:53
Re: Drucken	337	VBRunner	07.09.03 23:03
Re: Drucken	298	Peacemaker	08.09.03 16:51
Re: Drucken	299	VBRunner	08.09.03 17:04
Re: Drucken	308	Peacemaker	08.09.03 17:36
Re: Drucken	319	VBRunner	08.09.03 18:24

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