Sun, 11 Apr 2004 22:00:06 GMT

Printing problem with D5 and Windows 2000

My application uses TPrinter object to print with a Generic/Text only
driver.
On Windows NT an 95 the application works fine, but on Windows 2000 the
printers does'nt start to print until I execute another print command.

            Printer.BeginDoc;
            Printer.Canvas.TextOut(0,0,'INPUT ON');
            Printer.Canvas.TextOut(0,1,'VTFONT1$ = "SW120BSN.2"');
            Printer.Canvas.TextOut(0,2,'VTFONT2$ = "SW060BSN.2"');
            Printer.Canvas.TextOut(0,3,'VTFONT3$ = "SW080BSN.1"');
            Printer.Canvas.TextOut(0,4,'VTFONT4$ = "SW060BSN.1"');
            Printer.Canvas.TextOut(0,5,'VTFONT5$ = "SW050RSN.2"');
            Printer.Canvas.TextOut(0,6,'VTFONT6$ = "SW110RSN.2"');
            Printer.Canvas.TextOut(0,7,'VTEXT1$ = "'+copy
            Printer.Canvas.TextOut(0,8,'VTEXT2$ = "'+LFBA
            Printer.Canvas.TextOut(0,9,'VTEXT3$ = "'+copyg,1,11)+'"');
            Printer.Canvas.TextOut(0,10,'VTEXT4$ = "'+LFB
            Printer.Canvas.TextOut(0,11,'VTEXT5$ = "'+forTime)+'"');
            Printer.Canvas.TextOut(0,12,'VTEXT6$ = "'+LFB
            Printer.Canvas.TextOut(0,13,'VTEXT7$ = "'+cop');
            Printer.Canvas.TextOut(0,14,'VTEXT8$ = "'+copy
            Printer.Canvas.TextOut(0,15,'VTEXT9$ = "'+copy');
            Printer.Canvas.TextOut(0,16,'VTEXTA$ = "'+copy
            Printer.Canvas.TextOut(0,17,'VTEXTB$ = "'+NroPratica+'"');
            Printer.Canvas.TextOut(0,18,'VTEXTC$ = "'+LFBAGS.FieldByName=
            Printer.Canvas.TextOut(0,19,'VTEXTD$ =
            Printer.Canvas.TextOut(0,20,'VTEXTE$ = ""');
            Printer.Canvas.TextOut(0,21,'VTEXTF$ = ""');
            Printer.Canvas.TextOut(0,22,'VTBARC1$ = "INT2OF5"');
            Printer.Canvas.TextOut(0,23,'VBARC1$ = "'+cBagaglio10+'"');
            Printer.EndDoc;