Código Delphi [-] procedure TForm1.PortraitClick(Sender: TObject); begin Printer.Orientation := poPortrait; end;
procedure TForm1.PortraitClick(Sender: TObject); begin Printer.Orientation := poPortrait; end;