QPRINTERS
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.
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.
Jacinto
Curtidas 0