|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.10.2006, 12:53 | #1 |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
печать на принтер в делфи!
Noldor
Народ, подскажите , как распечатать Table, и представить в форме Grid`а? Virtson Grid (далее Matrix) нужно вручную заполнить значениями из Table.. with Printer do begin if Printing then exit; PrinterIndex:= -1; BeginDoc; Onprint:= true; Matrix.Color:= clWhite; // экономим чернила Matrix.Repaint; zoom:= PageWidth / (2*Matrix.Width); zoom2:= PageHeight / (2*Matrix.Height); if zoom2< zoom then zoom:= zoom2; wdt:= round(zoom*Matrix.Width); hgt:= round(zoom*Matrix.Height); // масштабируем -> на полстраницы with canvas do begin Font.Size:= 14; Font.Name:= 'Courier New'; TextOut((PageWidth-Textwidth(str)) div 2, 12, str); StretchBlt(Handle, (PageWidth - wdt) div 2, 25+TextHeight(str), Wdt, Hgt, Matrix.Canvas.handle, 0, 0, Matrix.Width, Matrix.Height-5, SrcCopy); end; EndDoc; Onprint:= false; Matrix.Color:= $00AABBCC; Matrix.Repaint; if aborted then MessageDlg('Печать была прервана!', mtInformation, [mbOK],0); end; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Печать на принтер(USB) | kisser_san | Общие вопросы Delphi | 4 | 25.04.2008 16:18 |
Принтер | xakkkkker | Общие вопросы Delphi | 1 | 23.03.2008 15:05 |
Принтер | Gromsky | Общие вопросы Delphi | 4 | 05.03.2008 17:08 |
не печатает принтер!!!! | ronich | Операционные системы общие вопросы | 5 | 22.11.2007 08:52 |
Печать текстового файла на сетевой принтер | VAbramyak | Общие вопросы Delphi | 3 | 06.04.2007 20:16 |