Печать в формате А4, с предварительным просмотром

@DDim1000 · Регистрация: 17.12.2011

Здравствуйте!
Подскажите пожалуйста, почему картинка не полностью видна на предварительным просмотре?

Delphi

procedure TForm2.Browse;
var
  rect: TRect;
begin
  rect.Top:= 10;
  rect.Left:= 10;
  rect.Right:= 10 + Trunc(Form1.Image1.Picture.Graphic.Width*4) div 10;
  rect.Bottom:= 10 + Trunc(Form1.Image1.Picture.Graphic.Height*4) div 10;
  Image1.Canvas.Pen.Mode:= pmWhite;
  Image1.Canvas.Rectangle(0, 0, Image1.Width, Image1.Height);
  Image1.Canvas.Draw(rect.Left, rect.Top, Form1.Image1.Picture.Graphic);
end;
 
procedure TForm2.btnCloseClick(Sender: TObject);
begin
  Close;
end;
 
procedure TForm2.btnPrintClick(Sender: TObject);
var
  rect: TRect;
begin
  if PrintDialog1.Execute then
  begin
    Close;
    rect.Top:= 10;
    rect.Left:= 10;
    rect.Right:= 10 + Trunc(Form1.Image1.Picture.Graphic.Width);
    rect.Bottom:= 10 + Trunc(Form1.Image1.Picture.Graphic.Height);
    Printer.BeginDoc;
    Printer.Canvas.Draw(rect.Left, rect.Top, Form1.Image1.Picture.Graphic);
    Printer.EndDoc;
  end;
end;
 
procedure TForm2.FormActivate(Sender: TObject);
var
  x, y: Word;
begin
  Image1.Width:= Printer.PageWidth div 10;
  Image1.Height:= Printer.PageHeight div 10;
  y:= round((ScrollBox1.Height - Image1.Height)/2);
  x:= round((ScrollBox1.Width - Image1.Width)/2);
  Image1.Left:= x;
  Image1.Top:= y;
  Browse;
end;

@Пытливый · 04.07.2019, 13:54

А вы возьмите лист бумаги A4 и приложите к монитору. Если лист не вписался в монитор, то все нормально, а вот если вписался, значит вы неправильно что-то делаете.

@krapotkin · 04.07.2019, 14:47

а что Picture.Graphic содержит не исходный а растянутый битмап ?

@DDim1000 · 04.07.2019, 15:30 **[ТС]**

Сообщение от Пытливый

..., а вот если вписался, значит вы неправильно что-то делаете.

Дак, я знаю что, что-то неправильно делаю, но не могу понять что именно я ни так делаю.......
Картинка 2481х3508, я загружаю ее в image.picture, image делаю 1000х1414, чтоб картинку видеть. Или нужно, перед выводом на принтер, какой- то размер image ставить?

@krapotkin · 04.07.2019, 17:04

пусть у вас картинка 100*100
если вывести ее на экран 1000*1000
она от этого и сама больше не станет и на принтер напечатается тоже 100*100 если использовать печать 1:1 как у вас
думаю, вам нужно использовать Canvas.CopyRect

@DDim1000 · 04.07.2019, 19:18 **[ТС]**

Вот, посмотрите, пожалуйста, проект: https://yadi.sk/d/I2Qs2SaFjwvHVQ
Как там настроить пред просмотр?

@krapotkin · 04.07.2019, 20:21

https://www.cyberforum.ru/delp... ment3.html
4.11

@Пытливый · 04.07.2019, 20:27

Надо было еще и дистрибутив Delphi с Windows прикрепить. Проект это только dpr,pas,dfm файлы, а вы зафигачили в архив 56 метров мусора.

@DDim1000 · 04.07.2019, 20:32 **[ТС]**

Сообщение от krapotkin

https://www.cyberforum.ru/delphi-beginners/announcement3.html
4.11

Да, не загружается сюда архив, ошибку выдаёт:
Не удается получить доступ к сайту Веб-страница по адресу https://www.cyberforum.ru/newa... eattach&p=, возможно, временно недоступна или постоянно перемещена по новому адресу.
ERR_CONNECTION_ABORTED

Добавлено через 2 минуты

Сообщение от Пытливый

Надо было еще и дистрибутив Delphi с Windows прикрепить. Проект это только dpr,pas,dfm файлы, а вы зафигачили в архив 56 метров мусора.

Ну, удалось посмотреть?

@Пытливый · 04.07.2019, 20:43

Принтеры они же как и мониторы имеют разные разрешения и размер одной страницы A4 в пикселях тоже будет разный. Это необходимо учитывать для масштабирования картинки, а вы напрямую рисуете. Надо делать примерно так:

Delphi

    D := Min(Printer.PageWidth/Bmp.Width, Printer.PageHeight/Bmp.Height);
    W := Round(Bmp.Width * D);
    H := Round(Bmp.Height * D);
    Printer.BeginDoc;
    Printer.Canvas.StretchDraw(Rect(0, 0, W, H), Bmp);
    Printer.EndDoc;

@DDim1000 · 04.07.2019, 21:55 **[ТС]**

Сообщение от Пытливый

Принтеры они же как и мониторы имеют разные разрешения и размер одной страницы A4 в пикселях тоже будет разный. Это необходимо учитывать для масштабирования картинки, а вы напрямую рисуете. Надо делать примерно так:

Delphi

* * D := Min(Printer.PageWidth/Bmp.Width, Printer.PageHeight/Bmp.Height);
* * W := Round(Bmp.Width * D);
* * H := Round(Bmp.Height * D);
* * Printer.BeginDoc;
* * Printer.Canvas.StretchDraw(Rect(0, 0, W, H), Bmp);
* * Printer.EndDoc;

Разрешение 600х600. Проверял так:

Delphi

1
2
3

PixelsX:=GetDeviceCaps(printer.Handle,LogPixelsX);
PixelsY:=GetDeviceCaps(printer.Handle,LogPixelsY);
Label1.Caption:=IntToStr(PixelsX)+'x'+IntToStr(PixelsY);

Как применить полученные значения?

@Пытливый · 04.07.2019, 22:25

Так это вы точек на дюйм получили, а не размерность страницы. Размер страницы я в примере показал как получить.

@krapotkin · 04.07.2019, 22:46

предпросмотр нужно "настраивать" ручками, а не как бог положит

и предпросмотр НИЧЕМ не отличается от печати
вы так же должны вывести что-то на какой-то Canvas
будь это Bitmap.Canvas или Printer.Canvas
для этого вам нужно рассчитать масштаб, используя данные о разрешении принтера и разрешении экрана, и возможно еще что-нибудь.
а все ваши исходные координаты при выводе на Canvas пересчитывать в соответствии с нужным масштабом

дальше вообще задача концептуальная пойдет
какие единицы будут главными - сантиметры или пиксели?
потому что при печати обычно важны именно сантиметры, а на экране - пиксели
если вы собрались выводить картинку, ее всяко нужно отмасштабировать
представим что бумага 210*297мм а картинка 200*100 px
есть аж 4 варианта только для того, чтобы МАКСИМАЛЬНО вошла ваша картинка на лист
2 портрет + 2 альбом
при этом либо по двум сторонам останутся белые полосы, либо наоборот, пропадет часть картинки
печать вообще штука капец какая неприятная
поэтому все у кого не безвыходная ситуация, пользуются генераторами отчетов, где все проблемы за вас уже порешали

@DDim1000 · 05.07.2019, 06:49 **[ТС]**

Сообщение от krapotkin

...поэтому все у кого не безвыходная ситуация, пользуются генераторами отчетов, где все проблемы за вас уже порешали

А как добавлять картинку в QuickAbstractRep? Вы про такой отчет говорите?

@krapotkin · 05.07.2019, 08:44

Я говорю про FastReport
это современный де-факто стандарт

@DDim1000 · 05.07.2019, 19:42 **[ТС]**

Сообщение от Пытливый

Принтеры они же как и мониторы имеют разные разрешения и размер одной страницы A4 в пикселях тоже будет разный. Это необходимо учитывать для масштабирования картинки, а вы напрямую рисуете. Надо делать примерно так:

* *

Delphi

D := Min(Printer.PageWidth/Bmp.Width, Printer.PageHeight/Bmp.Height);
* * W := Round(Bmp.Width * D);
* * H := Round(Bmp.Height * D);
* * Printer.BeginDoc;
* * Printer.Canvas.StretchDraw(Rect(0, 0, W, H), Bmp);
* * Printer.EndDoc;

Подскажите пожалуйста, что такое Bmp? Это Bitmap изображения? Т.е. переменная с картинкой?

Добавлено через 34 минуты
Почему то ругается на эту строку:

Delphi

1	Printer.Canvas.StretchDraw(Rect(0, 0, W, H), Bmp);

dcc32 Error] Unit2.pas(70): E2066 Missing operator or semicolon

@AzAtom · 06.07.2019, 10:46

Сообщение от DDim1000

dcc32 Error] Unit2.pas(70): E2066 Missing operator or semicolon

Отсутствует оператор или разделитель. Странно, тут всё хватает вроде, на D7 компилируется.

Сообщение от DDim1000

что такое Bmp? Это Bitmap изображения? Т.е. переменная с картинкой?

Да.

Delphi

var
  bmp: TBitmap;
  W, H: integer;
begin
  Printer.Canvas.StretchDraw(Rect(0, 0, W, H), Bmp);
end;

@Пытливый 3075 / 1816 / 594 Регистрация: 29.05.2013 Сообщений: 7,955
	04.07.2019, 13:54	2
	А вы возьмите лист бумаги A4 и приложите к монитору. Если лист не вписался в монитор, то все нормально, а вот если вписался, значит вы неправильно что-то делаете. 0

@krapotkin 5282 / 4128 / 1349 Регистрация: 14.04.2014 Сообщений: 18,820 Записей в блоге: 18
	04.07.2019, 14:47	3
	а что Picture.Graphic содержит не исходный а растянутый битмап ? 0

@DDim1000 3 / 3 / 0 Регистрация: 17.12.2011 Сообщений: 493
	04.07.2019, 15:30 [ТС]	4
	Сообщение от Пытливый ..., а вот если вписался, значит вы неправильно что-то делаете. Дак, я знаю что, что-то неправильно делаю, но не могу понять что именно я ни так делаю....... Картинка 2481х3508, я загружаю ее в image.picture, image делаю 1000х1414, чтоб картинку видеть. Или нужно, перед выводом на принтер, какой- то размер image ставить? 0

@krapotkin 5282 / 4128 / 1349 Регистрация: 14.04.2014 Сообщений: 18,820 Записей в блоге: 18
	04.07.2019, 17:04	5
	пусть у вас картинка 100100 если вывести ее на экран 10001000 она от этого и сама больше не станет и на принтер напечатается тоже 100*100 если использовать печать 1:1 как у вас думаю, вам нужно использовать Canvas.CopyRect 0

@DDim1000 3 / 3 / 0 Регистрация: 17.12.2011 Сообщений: 493
	04.07.2019, 19:18 [ТС]	6
	Вот, посмотрите, пожалуйста, проект: https://yadi.sk/d/I2Qs2SaFjwvHVQ Как там настроить пред просмотр? 0

@krapotkin 5282 / 4128 / 1349 Регистрация: 14.04.2014 Сообщений: 18,820 Записей в блоге: 18
	04.07.2019, 20:21	7
	https://www.cyberforum.ru/delp... ment3.html 4.11 0

@Пытливый 3075 / 1816 / 594 Регистрация: 29.05.2013 Сообщений: 7,955
	04.07.2019, 20:27	8
	Надо было еще и дистрибутив Delphi с Windows прикрепить. Проект это только dpr,pas,dfm файлы, а вы зафигачили в архив 56 метров мусора. 0

@DDim1000 3 / 3 / 0 Регистрация: 17.12.2011 Сообщений: 493
	04.07.2019, 20:32 [ТС]	9
	Сообщение от krapotkin https://www.cyberforum.ru/delphi-beginners/announcement3.html 4.11 Да, не загружается сюда архив, ошибку выдаёт: Не удается получить доступ к сайту Веб-страница по адресу https://www.cyberforum.ru/newa... eattach&p=, возможно, временно недоступна или постоянно перемещена по новому адресу. ERR_CONNECTION_ABORTED Добавлено через 2 минуты Сообщение от Пытливый Надо было еще и дистрибутив Delphi с Windows прикрепить. Проект это только dpr,pas,dfm файлы, а вы зафигачили в архив 56 метров мусора. Ну, удалось посмотреть? 0

@Пытливый 3075 / 1816 / 594 Регистрация: 29.05.2013 Сообщений: 7,955
	04.07.2019, 22:25	12
	Так это вы точек на дюйм получили, а не размерность страницы. Размер страницы я в примере показал как получить. 0

@krapotkin 5282 / 4128 / 1349 Регистрация: 14.04.2014 Сообщений: 18,820 Записей в блоге: 18
	04.07.2019, 22:46	13
	предпросмотр нужно "настраивать" ручками, а не как бог положит и предпросмотр НИЧЕМ не отличается от печати вы так же должны вывести что-то на какой-то Canvas будь это Bitmap.Canvas или Printer.Canvas для этого вам нужно рассчитать масштаб, используя данные о разрешении принтера и разрешении экрана, и возможно еще что-нибудь. а все ваши исходные координаты при выводе на Canvas пересчитывать в соответствии с нужным масштабом дальше вообще задача концептуальная пойдет какие единицы будут главными - сантиметры или пиксели? потому что при печати обычно важны именно сантиметры, а на экране - пиксели если вы собрались выводить картинку, ее всяко нужно отмасштабировать представим что бумага 210297мм а картинка 200100 px есть аж 4 варианта только для того, чтобы МАКСИМАЛЬНО вошла ваша картинка на лист 2 портрет + 2 альбом при этом либо по двум сторонам останутся белые полосы, либо наоборот, пропадет часть картинки печать вообще штука капец какая неприятная поэтому все у кого не безвыходная ситуация, пользуются генераторами отчетов, где все проблемы за вас уже порешали 0

@DDim1000 3 / 3 / 0 Регистрация: 17.12.2011 Сообщений: 493
	05.07.2019, 06:49 [ТС]	14
	Сообщение от krapotkin ...поэтому все у кого не безвыходная ситуация, пользуются генераторами отчетов, где все проблемы за вас уже порешали А как добавлять картинку в QuickAbstractRep? Вы про такой отчет говорите? 0

@krapotkin 5282 / 4128 / 1349 Регистрация: 14.04.2014 Сообщений: 18,820 Записей в блоге: 18
	05.07.2019, 08:44	15
	Я говорю про FastReport это современный де-факто стандарт 0