QPrinters

14/12/2003

1

alguem sabe porque o QPrinters nao funciona no windows XP?

este simples codigo para imprimir um memo, roda e funciona no 98 mas no xp nao..

procedure TForm1.BitBtn1Click(Sender: TObject);
var PrintFile:TextFile;
i,LinesPerPage:Integer;
begin
AssignPrn (PrintFile);
ReWrite(PrintFile);
For i := 0 to Memo1.Lines.Count-1 do
WriteLn(PrintFile,Memo1.lines[i]);
System.CloseFile(PrintFile);

end;

end.


Responder