Fórum Problema com Aplicação CLX e Impressora no Delphi 7 #204503

Estou tentando configurar a impressora para imprimir no modo paisagem estou usando o seguinte código:

procedure TForm1.Button1Click(Sender: TObject);
var
PrintFile: TextFile;
P: TPrinter;
begin
P := AssignPrn(PrintFile);
Printer.Orientation := poLandscape;
Rewrite(PrintFile);
P.Canvas.Font.Size := 8;
Writeln(PrintFile,´Testando a impressora´);
CloseFile(PrintFile);
end;


Não está funcionando a impressora imprime no modo retrato.

Se eu trocar a linha ´Printer.Orientation := poLandscape;´ por ´Printer.ExecSetup;´ e quando a caixa de dialogo aparecer eu configurar a impressora para modo paisagem, ai funciona, mais é muito chato ter que ficar configurando a impressora toda hora.

Alguem sabe como resolver o problema?