Aplicação CLX e impressão na horizontal

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.