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

Вниз

Как вывести на печать форму с нужным разрешением экрнана ?   Найти похожие ветки 

 
@gent ©   (2006-05-02 19:01) [0]

Мне надо вывести на печать рисунок формы с любым разрешением. Через Form1.print она распечатывает лишь часть того, что умещается на листе формата A4.
Заранее спасибо.


 
AlexanderMS ©   (2006-05-02 19:04) [1]

Свойство есть такое у формы: PrintScale. Я думаю, его нужно изменить.


 
Loginov Dmitry ©   (2006-05-02 21:55) [2]

Вот пример печати с TImage с учетом масштаба, разбирайся сам:
 if PrintDialog1.Execute then begin
   // Выполняем печать
   Printer.Orientation := poLandscape;
   Printer.BeginDoc;
   Printer.Canvas.Refresh;
   PointsX:=GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSX) / 101.538;
   PointsY:=GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSY) / 101.538;

   X1:=round((Printer.PageWidth - Min(Image.Picture.Bitmap.Width, 1024) * PointsX) / 2) + 80;
   Y1:=round((Printer.PageHeight - Min(Image.Picture.Bitmap.Height, 768) * PointsY) / 2);
   X2:=round(X1 + Min(Image.Picture.Bitmap.Width, 1024)*PointsX);
   Y2:=round(Y1 + Min(Image.Picture.Bitmap.Height, 768)*PointsY);

   Printer.Canvas.CopyRect(Rect(X1, Y1, X2, Y2),Image.Picture.Bitmap.Canvas,
   Rect(0,0,Min(Image.Picture.Bitmap.Width, 1024), Min(Image.Picture.Bitmap.Height, 768)));
   Printer.EndDoc;    
 end;


 
@gent ©   (2006-05-10 13:57) [3]

а нельзя ли дать уже готовую ?


 
@gent ©   (2006-05-10 14:07) [4]

Все, сообразил.



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

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

Наверх




Память: 0.47 MB
Время: 0.055 c
6-1138795143
Phoenix9000
2006-02-01 14:59
2006.05.28
Удаление и копирование файлов на сетевой ресурс


2-1147371555
Призрак
2006-05-11 22:19
2006.05.28
Как организовать FIFO-буфер?


3-1144128557
WellSlava
2006-04-04 09:29
2006.05.28
Oracle+DOA


15-1146289797
User_OKA
2006-04-29 09:49
2006.05.28
Имитационная модель


15-1146767168
Volf_555
2006-05-04 22:26
2006.05.28
Как можно запретить автоматическую закачку из инета программ?