Как вывести изображение из paintbox на принтер, если оно занимает 2 экрана?

[aleksei199]

Как вывести изображение из paintbox на принтер, если оно занимает 2 экрана вниз? (Экран 19").

Проблема распечатать график, который строю в Paintbox.
Высота Paintbox 1300, ширина 873. На форме включен autoscrolling (для просмотра графика). График по размеру умещается на формат А4.

Если не трудно, то можно поподробнее КАК...
Срочно...

[mihali4]

А вы хоть пробовали печатать? Пэйнтбоксу все равно, сколько экранов занимает картинка. Не поместится на максимально допустимый для принтера лист - будет печатать из кусков. Склеите потом.
А если хотите поместить на лист - используйте ресайз рисунка...

[zetrix]

1300 х 873 - запросто поместиться на А4. Учитываем, что разрешение монитора и принтера существенно разное.

uses printers;
...
procedure TForm1.BitBtn1Click(Sender: TObject);
var
    C: real;
    R: TRect;
begin
C:=1;
Printer.BeginDoc;
R := Rect(0, 0, round(paintbox1.Width * C), round(paintbox1.Height * C));
Printer.Canvas.CopyRect(R,paintbox1.Canvas,paintbox1.Canvas.ClipRect);
Printer.EndDoc;
end;

C - коэффициент масштабирования. Для начала установите равными единице, если картинка маленькая - увеличивайте, иначе - уменьшайте.

[aleksei199]

спасибо за быстрый ответ..но предложенный код ниже я уже пробовал.
Хоть убей, но принтер HP laserjet 1018 гонит чистый лист....

А матричный принтер HP DeskJet 1220C печатает..
(Порошок в принтере есть )

uses printers;
...
procedure TForm1.BitBtn1Click(Sender: TObject);
var
C: real;
R: TRect;
begin
C:=1;
Printer.BeginDoc;
R := Rect(0, 0, round(paintbox1.Width * C), round(paintbox1.Height * C));
Printer.Canvas.CopyRect(R,paintbox1 .Canvas,paintbox1.Canvas.ClipRect);
Printer.EndDoc;
end;

[mihali4]

Попробуйте на лазернике с коэффициентом 0.5, для пробы.
Возможно, чуток не хватает рабочей ширины.

[aleksei199]

я уже ВСЕ перепробовал..ничего не получилось (

[Sibedir]

Инфа о принтере - Printer.zip

Обрати внимание на:
- Горизонтальная ширина в пикселах;
- Вертикальная высота в пикселах;
- Физическая Печатаемая Область x край;
- Физическая Печатаемая Область y край;

Может быть просто принтер имеет очень большое разрешение или печатаемая область вне доступного диапозона.

::: У меня по молодости лет прикол был. Рисую себе линию на экране толщиной 1 pix, все круто. А для принтера она такая тонкая была, что я ее не увидел. Тоже попарился. Хотя этот мой опыт в данной ситуации не поможет. Мы, я так понял, рисуем картинку.

[OLEG'arh]

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

Не поместится на максимально допустимый для принтера лист - будет печатать из кусков. Склеите потом.
А если хотите поместить на лист - используйте ресайз рисунка...

я за раннее не знаю Width и Height

я хочу распечатать изображение на round(image1.Width/Х) страницах, где Х некий лимит (также и по Height)

допустим у меня большая "картинка" такая что займёт 6 листов по шрине(х) А4 и 3 по высоте(y), как это реализовать???
использую image.

на одном листе использую такой код

var
    C: real;
    R: TRect;
begin
   if printersetupdialog1.Execute then
      begin
        C:=Printer.PageWidth/image1.Width;
        showmessage(inttostr(round(Printer.PageWidth)));
        Printer.BeginDoc;
        R := Rect(0, 0, round(image1.Width * C), round(image1.Height * C));
        Printer.Canvas.CopyRect(R,image1.Canvas,image1.Canvas.ClipRect);
        Printer.EndDoc;
      end
end;

[Sibedir]

Лучше создай новую тему. Здесь речь ни о том. Да и вероятность ответа возрастет.