Распечатка графика

← →
Link (2002-10-06 14:54) [0]

Друзья, написал программу, которая строит график на Canvas формы.
Подскажите, как его можно распечатать.

← →
Anatoly Podgoretsky (2002-10-06 15:15) [1]

Canvas формы вывести на Canvas принтера

← →
Link (2002-10-06 15:55) [2]

А как это делается?

← →
BOA_KAA (2002-10-06 16:02) [3]

http://forum.ixbt.com/0026/017369.html

← →
Link (2002-10-06 16:26) [4]

Чё то ничё понять там не могу. :(
Я с принтером ещё не работал... Вот и сложности.
Нашёл код, вроде похож на правду

Printer.BeginDoc;
PageW:=Printer.PageWidth;
PageH:=Printer.PageHeight;
Printer.Canvas.CopyRect(Rect(0,0,PageW,PageH),prBitMap.Canvas,Rect(0,0,prBitMap.Width,prBitMap.Height));
Printer.EndDoc;

Да и в Helpe тоже есть

procedure TForm1.Button1Click(Sender: TObject);
var
Bmp: TBitmap;
begin
Bmp := TBitmap.Create;
try
Bmp.LoadFromFile("MyBitmap.bmp");
with Printer do
begin
BeginDoc;
Canvas.Draw((PageWidth - Bmp.Width) div 2,
(PageHeight - Bmp.Height) div 2,
Bmp);
EndDoc;
end;
finally
Bmp.Free;
end;
end;

Может я просто торможу...
Во втором, я так понял, нужно иметь уже сохранённый файл (которого у меня нет), а первый вообще не знаю как к себе применить. Куда там писать Form1.Canvas? Или может ещё что-нибудь...

← →
BOA_KAA (2002-10-06 16:43) [5]

В некотором роде - это действительно так, но если у тебя картинка, к примеру маленькая, то ты ее в распечатке просто не увидишь:-) И это еще далеко не все подводные камни. Посмотри, как советуют на ixbt, вариант работает на всех принтерах, с которыми мне приходилось иметь дело

← →
Link (2002-10-06 17:53) [6]

Ты про какой конкретно вариант?

Распечатка графика Найти похожие ветки