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

Вниз

Принтер и все связанное с ним   Найти похожие ветки 

 
Beauty_Full   (2002-01-03 20:54) [0]

Драствуйте!

Я тут имею форму с TStringGrid. Как эту таблицу можно распечатать ? Как распечатать в черно-белом режиме ?
(только одну таблицу, без всяких частей формы)

Спасибо всем кто обратил на это внимание !!!


 
Vovchik   (2002-01-03 23:00) [1]

А как вообще печатать в Дельфи? Есть объект TPrinter. Печать выглядит так:
var
r:TRect;
NCopies:integer;
begin
r:=Rect(10,10,1200,600); //область печати - зависит от принтера

Printer.Title:="My Printing";
Printer.Copies:=NCopies;
Printer.BeginDoc;
Printer.Canvas.CopyRect(r,StringGrid1.Canvas,Rect(0,0,StringGrid1.Width,StringGrid1.Height));
Printer.EndDoc;
end;

Чтобы определить возможности принтера есть специальные винаппийские функции. Часть из свойств можно узнать с помощью того же TPrinter.
Пример на ВИНАПИ:
//опр. текущие размеры листа в пикселях принтера
PWidth:=GetDeviceCaps(Printer.Handle,PHYSICALWIDTH);
PHeight:=GetDeviceCaps(Printer.Handle,PHYSICALHEIGHT);
//опр. минимальные поля со всех сторон, зависящие от принтера
LeftMargin:=GetDeviceCaps(Printer.Handle,PHYSICALOFFSETX);
TopMargin:=GetDeviceCaps(Printer.Handle,PHYSICALOFFSETY);
RightMargin:=PWidth-GetDeviceCaps(Printer.Handle,HORZRES)-LeftMargin;
BottomMargin:=PHeight-GetDeviceCaps(Printer.Handle,VERTRES)-TopMargin;

Исходя из этих значений можно определить область печати с необходимыми полями. Для пересчёта пикселей в мм необходимо использовать следующие ф-ции:
LogResX:=GetDeviceCaps(Printer.Handle,LOGPIXELSX);
LogResY:=GetDeviceCaps(Printer.Handle,LOGPIXELSY);

Ну, а в чёрно-белом режиме, это просто свойство поменять соответствующее нужно (в TPrinter) и всё.



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

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

Наверх




Память: 0.47 MB
Время: 0.009 c
14-9290
SergeyNew
2002-01-17 20:19
2002.03.04
autorun


3-9063
NickBat
2002-02-06 17:42
2002.03.04
Inerbase


1-9139
kaif
2002-02-17 12:56
2002.03.04
Почему много ссылок на BPL?


4-9351
star
2002-01-03 16:50
2002.03.04
Посылает ли сетевая карта сообщения ?


6-9266
Artis
2001-12-12 18:46
2002.03.04
Возник такой вопрос - серверу посылается запрос на что он выдает информацию обратно как в цикле посылать запрос и переходить к следующему значению только после того как будет получен и обработан ответ???