Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.05;
Скачать: CL | DM;

Вниз

Печать пакета документов   Найти похожие ветки 

 
don   (2003-12-16 10:32) [0]

Помогите плз. Нужно печатать в одном пакете страницы с разной ориентацией, как можно ее сменить внутри одного задания на печать.
Если для каждой смены ориентации создавать новое задание, то на сетевом принтере происходит путаница.


 
don   (2003-12-16 15:30) [1]

Я разобрался, если кому интересно:
TPrinter не реализует метода EndPage
поэтому нада самому
{$HINTS OFF}
type
TMyPrinter = class(TObject)
private
FCanvas: TCanvas;
FFonts: TStrings;
FPageNumber: Integer;
FPrinters: TStrings;
FPrinterIndex: Integer;
FTitle: string;
FPrinting: Boolean;
FAborted: Boolean;
FCapabilities: TPrinterCapabilities;
State: TPrinterState;
DC: HDC;
DevMode: PDeviceMode;
DeviceMode: THandle;
end;
{$HINTS ON}
procedure ChangePrinterDevMode;
begin
EndPage(Printer.Handle);
//установить параметры DevMode;
TMyPrinter(Printer).DevMode^.dm....... := ...;
...........................
ResetDC(Printer.Handle,TMyPrinter(Printer).DevMode^);
end;
не забыть потом саказать NewPage;



Страницы: 1 вся ветка

Текущий архив: 2004.03.05;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.009 c
14-12487
syte_ser78
2004-02-12 10:17
2004.03.05
Загрузка процессора


1-12313
bartram
2004-02-25 18:09
2004.03.05
Как сделать hook на нажатие колёсика мыши?


14-12516
Knight
2004-02-11 18:56
2004.03.05
Alcatel 331


3-12299
Relaxxx
2004-02-09 14:23
2004.03.05
Возможно ли как-то связать два датаСета и отображать их...


1-12422
Вованчик
2004-02-24 15:52
2004.03.05
Рекурсивная функция