Landscape printing

Hej igen

glemte lige at sige at det er et bitmap der skal printes, ikke Tchart m.fl.

GF

fra hjælpen

This example uses two radio buttons on a form named Landscape and Portrait. The form also includes a button. When the user selects an orientation by clicking one of the radio buttons and then clicks the button to print one line of text, the print job prints using the selected orientation:

procedure TForm1.Button1Click(Sender: TObject);

begin
  Printer.BeginDoc;
  Printer.Canvas.TextOut(100,100,'Hi there');
  Printer.EndDoc;
end;

procedure TForm1.PortraitClick(Sender: TObject);

begin
  Printer.Orientation := poPortrait;
end;

procedure TForm1.LandscapeClick(Sender: TObject);

begin
  Printer.Orientation := poLandscape;

end;

Stoney