TPrinter *Prntr = Printer();
Prntr->BeginDoc();
Prntr->Canvas->Draw(20, 20, Image1->Picture->Graphic);
Prntr->EndDoc();
как TImage распечатать на принтере?
есть TImage... (с загруженым .bmp рисунком)
как его распечатать на принтере?
как его распечатать на принтере?
у TImage есть свойство Picture а у него свойство Graphic. Ну а у TPrinter есть Canvas.
что мы из этого можем поиметь: а то что есть такая функция у TCanvas (Draw называется), соответственно...
ну вроде как-то так, а если нужно форматирование, то смотри help по TPrinter..... хм... и по TCanvas.
что мы из этого можем поиметь: а то что есть такая функция у TCanvas (Draw называется), соответственно...
Код:
ну вроде как-то так, а если нужно форматирование, то смотри help по TPrinter..... хм... и по TCanvas.
и еще... плиз...
а как масштабировать рисунок при печати?....
а как масштабировать рисунок при печати?....
[QUOTE=Vitaliy Boberman]и еще... плиз...
а как масштабировать рисунок при печати?....[/QUOTE]
StretchDraw вместо Draw и там соотвессна параметры:
то есть:
где tx, ty - x, y верхнего левого угла прямоугольника, в который будем вписывать;
а bx, by - x, y нижнего правого угла прямоугольника
PS: ну а коэффицент сжатия или растяжения рисунка я думаю посчитаешь сам, ну и соотвессна с коэффицентом размеры прямоугольника
Удачи! ;)
а как масштабировать рисунок при печати?....[/QUOTE]
StretchDraw вместо Draw и там соотвессна параметры:
Код:
void __fastcall StretchDraw(const TRect &Rect, TGraphic* Graphic);
то есть:
Код:
Prntr->Canvas->StretchDraw(TRect(tx, ty, bx, by), Image1->Picture->Graphic);
где tx, ty - x, y верхнего левого угла прямоугольника, в который будем вписывать;
а bx, by - x, y нижнего правого угла прямоугольника
PS: ну а коэффицент сжатия или растяжения рисунка я думаю посчитаешь сам, ну и соотвессна с коэффицентом размеры прямоугольника
Удачи! ;)
спасибо!!! с меня - пиво!!!!
смотря в каком ты городе живешь =))))))))) а то ведь я и приехать могу :D