Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.05.28;
Скачать: [xml.tar.bz2];

Вниз

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

 
@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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.014 c
2-1147433954
Ламот
2006-05-12 15:39
2006.05.28
Запуск/закрытие стороннего приложения


6-1138086770
clickmaker
2006-01-24 10:12
2006.05.28
Indy 10 - IdFtp - HTTP Proxy with FTP support


2-1147356863
Близнец
2006-05-11 18:14
2006.05.28
SearchRec.Attr=faDirectory


15-1146055921
Nic
2006-04-26 16:52
2006.05.28
Что для России означает снижение курса доллара?


11-1127135844
=mike=
2005-09-19 17:17
2006.05.28
Не получается скомпилировать проект





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский