Печать картинок
Есть проблема при печати картинок - картинка или не выводиться на печать или печатаеться черный прямоугольник. На preview все отображается нормально. Система ХР. Принтер HP LaserJet 1100. Оптимизация печати отключена. Драйвера обновлены.
Код для печати следующий:
Код для печати следующий:
procedure TOrderRepModule.OrderOfferReportEnterRect(Memo: TStringList; View: TfrView);
var
picture : TfrPictureView;
bitmap : TBitmap;
begin
if( View is TfrPictureView ) then
begin
picture := TfrPictureView( View );
if( View.Name = 'FramePicture' ) then
begin
bitmap := TBitmap.Create;
bitmap.Width := 390;
bitmap.Height := 195;
PrintFrame( bitmap );
try
picture.Picture.Assign( bitmap );
finally
FreeAndNil( bitmap );
end;
end;
end;
end;
Комментарии
Помогло следующее - сделал картинку монохромной :-)
Пример: