Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проблем с принтером!!! [D5, Win2k]

dim_zay © (2002-02-08 14:04:00)
Помогите, пожайлусто, программно настроить ориентацию бумаги на принтере(нужна Альбомная). Заранее благодарен.

Dimaond Cat (2002-02-13 00:27:00) [1]
Вот не поверишь я очень злой , и не упустил возможности поглумиться поэтому так развернуто и ответил, так что получается что и не наивный

Anatoly Podgoretsky (2002-02-09 01:32:00) [2]
Понимаешь, там надо F1 нажимать, а так может найдется наивный и добрый дядя

Dimaond Cat (2002-02-08 23:20:00) [3]
мда видемо хелпы пишут просто для увеличения объема поставляемого продукта. вот если к примеру написать
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, и вперед, можно распечатывать весь хелп, хошь вдоль, хошь поерек листа.

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »