[an error occurred while processing this directive]
|
Может здесь подскажите.
Вывожу на принтер изображение, нарисованное(всякие линии, графики) на Image. Все цветные линии на принтере становятся серенькие. Наверное, нужно вставить какой-то CopyMode (для копирования атрибутов из канвы в канву), но какой и куда?
Печатаю так:
Printer.Orientation:=poLandscape;
Dest:=Rect(0,0,Printer.PageWidth,Printer.PageHeight);
Source:=Rect(0,0,Form1.Image1.Width,Form1.Image1.Height);
with Printer do
begin
BeginDoc;
Canvas.CopyRect(Dest,Form1.Image1.Canvas,Source);
EndDoc;
end;
Тоже получается, если печатаю форму:
Form1.PrintScale:=poPrintToFit;
Form1.Print;
Для шутников: принтер цветной, картриджи работают, из других приложений печатает нормально.
E-mail: info@telesys.ru