小票打印问题

Question

pos小票打印我们的软件用的直接端口打印方式，打印没有什么问题。但有个客户，他们那儿同时运行另一个软件，那个软件必须要小票打印机装驱动才能打印。我们的软件在装了驱动的小票打印机方式下，小票打不出来，软件不能用。请大家帮忙分析下是什么问题，或者给出驱动打印的代码也可以。。

Answer 1

var
    tf: TextFile;
    my: string;
    filehandle: integer;
    nowtime: tdatetime;
begin　　
　　　　　my := 'lpt1';
            filehandle := fileopen(my, fmopenwrite);
            fileclose(filehandle);
            if filehandle < 0 then
            begin
                messagebox(handle, 'lpt1错误', '错误', mb_iconerror);
                exit;
            end
            else
            begin
                assignfile(tf, my);
                try
                    rewrite(tf);
                    writeln(tf, chr(27) + chr(112) + chr(0) + chr(18) + chr(22));
                    writeln(tf, '         观迎光临');
                    writeln(tf, '      大观立体停车库');
                    writeln(tf, '--------------------------------');
                    writeln(tf, '车牌号:' + tmh.Text);
                    writeln(tf, '头一小时:收费4圆');
                    writeln(tf, '超一小时加1圆');
                    writeln(tf, '超过10分钟开时计收');
                    writeln(tf, '开入时间:');
                    writeln(tf, datetimetostr(nowtime));
                    writeln(tf, '--------------------------------');
                    ReWrite(tf);
                    writeln(tf, '    请保留小票!凭小票取车.');
                    writeln(tf, '');
                    writeln(tf, '');
                    writeln(tf, '');
                    writeln(tf, '');
                finally
                    closefile(tf);
                end;
            end;