Проблем с принтером!!!

← →
dim_zay © (2002-02-08 14:04) [0]

Помогите, пожайлусто, программно настроить ориентацию бумаги на принтере(нужна Альбомная). Заранее благодарен.

← →
Dimaond Cat © (2002-02-08 23:20) [1]

мда видемо хелпы пишут просто для увеличения объема поставляемого продукта. вот если к примеру написать
Tprinter, поставить на это словечко курсор и нажать F1, то как ни странно плучишь хелп по интересующей теме, Если вдруг этого оказалось мало, то в хелпе открываем Properties и видим там такую строчку Orientation, жмем на нее и о чудо, до чего дошла техника, идет описание типа TPrinterOrientation, но если уж нам и этого мало то поискав немного глазками по экрану видим такую строчку EXAMPLE, поразмышляв, что это значит несмело жмем
БУХ-БАБАХ и появляется

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;
Ну чтож, осталось вставить в Uses строчечку Printers, и вперед, можно распечатывать весь хелп, хошь вдоль, хошь поерек листа.

Представляешь мне было не впадлу печатать эту всю ерунду, а тебе лень хелп посмотреть

← →
Anatoly Podgoretsky © (2002-02-09 01:32) [2]

Понимаешь, там надо F1 нажимать, а так может найдется наивный и добрый дядя

Вот не поверишь я очень злой , и не упустил возможности поглумиться поэтому так развернуто и ответил, так что получается что и не наивный

Проблем с принтером!!! Найти похожие ветки