[AXS]

Вроде всё элементарно но...
Я рисую на канве Image'a прямоугольники типа:
Image1.Canvas.Brush.Style:=bsDiagCross;
Image1.Canvas.Brush.Color:=clAqua;
Image1.Canvas.Rectangle(0,0,200,150);

Затем пытаюсь печатать:
Printer.BeginDoc;

PointX:=GetDeviceCaps(Printer.Canvas.Handle,LOGPIX ELSX)/130;
PointY:=GetDeviceCaps(Printer.Canvas.Handle,LOGPIX ELSY)/130;

X1:=round((Printer.PageWidth-Image1.Width*PointX)/2);
Y1:=round((Printer.PageHeight-Image1.Height*PointY)/2);
X2:=round(X1+Image1.Width*PointX);
Y2:=round(Y1+Image1.Height*PointY);

Printer.Canvas.CopyRect(Rect(X1,Y1,X2,Y2),Image1.C anvas,
Rect(0,0,Image1.Width,Image.Height));

Printer.EndDoc;

Печатается, да, но... ПУСТАЯ страница!

Может подскажете, а то скоро истерика начнётся.... ещё и с женой поссорился... в общем дело жизненно важное...

[mav_c]

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

Вроде всё элементарно но...
Я рисую на канве Image'a прямоугольники типа:
Image1.Canvas.Brush.Style:=bsDiagCross;
Image1.Canvas.Brush.Color:=clAqua;
Image1.Canvas.Rectangle(0,0,200,150);

Затем пытаюсь печатать:
Printer.BeginDoc;

PointX:=GetDeviceCaps(Printer.Canvas.Handle,LOGPIX ELSX)/130;
PointY:=GetDeviceCaps(Printer.Canvas.Handle,LOGPIX ELSY)/130;

X1:=round((Printer.PageWidth-Image1.Width*PointX)/2);
Y1:=round((Printer.PageHeight-Image1.Height*PointY)/2);
X2:=round(X1+Image1.Width*PointX);
Y2:=round(Y1+Image1.Height*PointY);

Printer.Canvas.CopyRect(Rect(X1,Y1,X2,Y2),Image1.C anvas,
Rect(0,0,Image1.Width,Image.Height));

Printer.EndDoc;

Печатается, да, но... ПУСТАЯ страница!

Может подскажете, а то скоро истерика начнётся.... ещё и с женой поссорился... в общем дело жизненно важное...

Printer.BeginDoc();
BitBlt(Printer.Canvas.Handle, 0, 0, Image1.Width, Image1.Height,
Image1.Canvas.Handle, 0, 0, SRCCOPY);
Printer.EndDoc();

[AXS]

Сделал всё именно так. Увы, не работает... :-( . Думал ошибка где то ранее произошла, но сделав другой опытный проект, понял, что фишка именно в печати... Прилагаю исходник опытного проекта всё пашет кроме печати.... Точнее печатается пустой лист.

Прога после нажатия на кнопку с графиком рисует на канве image'a произвольный график и после нажатия на кнопку с принтом должна распечатать этот график, но, как уже говорил, увы....

[mav_c]

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

Сделал всё именно так. Увы, не работает... :-( . Думал ошибка где то ранее произошла, но сделав другой опытный проект, понял, что фишка именно в печати... Прилагаю исходник опытного проекта всё пашет кроме печати.... Точнее печатается пустой лист.

Прога после нажатия на кнопку с графиком рисует на канве image'a произвольный график и после нажатия на кнопку с принтом должна распечатать этот график, но, как уже говорил, увы....

Смотри, дело в настройках принтера. На виртуальный принтер печатается. А реального у меня под рукой нет. Увы!

[AXS]

С других то программ печатается!

[AXS]

Блин, мож кто ещё посмотрит исходник? (у кого принтер есть)

[mav_c]

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

Блин, мож кто ещё посмотрит исходник? (у кого принтер есть)

Ну у тебя на виртуальный печатается?

[AXS]

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

(Delphi 6)

[mav_c]

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

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

(Delphi 6)

Не знаю никогда даже не сталкивался с таким поворотом.