Aplicação CLX e impressão na horizontal
07/05/2003
0
Estou usando o seguinte código para imprimir na horizontal e não está funcionando alguem pode me ajudar?
var
PrintFile: TextFile;
P: TPrinter;
begin
P := AssignPrn(PrintFile);
Rewrite(PrintFile);
P.Orientation := poLandscape;
Writeln(PrintFile,´Testando impressão horizontal´);
CloseFile(PrintFile);
end;
A impressão teima e sair na vertical.
var
PrintFile: TextFile;
P: TPrinter;
begin
P := AssignPrn(PrintFile);
Rewrite(PrintFile);
P.Orientation := poLandscape;
Writeln(PrintFile,´Testando impressão horizontal´);
CloseFile(PrintFile);
end;
A impressão teima e sair na vertical.
Edgar Olavo
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)