Форум: "Система";
Текущий архив: 2002.09.30;
Скачать: [xml.tar.bz2];
Вниз
Проблемы с печатью Найти похожие ветки
← →
Trad (2002-07-18 15:15) [0]Нужно размножить картинку на листе, код такой:
...
bmp := TBitmap.Create;...
bmp.LoadFromFile("C:\Портрет товарища.bmp");
with Printer do begin
X1:=PageWidth div 2;
Y1:=PageHeight div 2;
X2:=PageWidth;
Y2:=PageHeight;
BeginDoc;
Canvas.StretchDraw(rect( 0 , 0 , X1, Y1 ), bmp);
Canvas.StretchDraw(rect( X1, 0 , X2, Y1 ), bmp);
Canvas.StretchDraw(rect( 0 , Y1, X1, Y2 ), bmp);
Canvas.StretchDraw(rect( X1, Y1, X2, Y2 ), bmp);
EndDoc;
end;
bmp.Destroy;
Проблема в том, что иногда одна, реже две, из четырех картинок не печатается. Причем не напечататься может любая, обычно первая или вторая картинка. Т.е. характер сей проблемы случайный.
В чем м.б. причина? Помогите пожалуйста.
← →
Song (2002-07-18 15:22) [1]Нужно ещё согласовывать с масштабом листа принтера (GetDeviceCaps)
← →
Trad (2002-07-18 16:09) [2]Что нужно согласовывать с масштабом листа??
Ведь размер листа мне известен (PageWidth,PageHeight), а соблюдать пропорции изображения мне не надо. Мне надо только "натянуть" картинку на канву принтера (StretchDraw).
Но иногда этого не происходит. Почему?
← →
Trad (2002-07-19 19:10) [3]Мне помогло следующее:
...
bmp := TBitmap.Create;
bmp.LoadFromFile("C:\Портрет товарища.bmp");
bmp.Canvas.Lock;
with Printer do begin
X1:=PageWidth div 2;
Y1:=PageHeight div 2;
X2:=PageWidth;
Y2:=PageHeight;
BeginDoc;
Canvas.StretchDraw(rect( 0 , 0 , X1, Y1 ), bmp);
Canvas.StretchDraw(rect( X1, 0 , X2, Y1 ), bmp);
Canvas.StretchDraw(rect( 0 , Y1, X1, Y2 ), bmp);
Canvas.StretchDraw(rect( X1, Y1, X2, Y2 ), bmp);
EndDoc;
end;
bmp.Canvas.Unlock;
bmp.Destroy;
...
Но почему я так и не понял. Если кто объяснить буду премного блогадарен.
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.09.30;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c
