Печать картинок

brat

Есть проблема при печати картинок - картинка или не выводиться на печать или печатаеться черный прямоугольник. На 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;

gpi

написал:

Попробуйте убрать комментарий со строки {$DEFINE PRN_RESET} в файле FR_Prntr.pas и перекомпилировать пакет FR и ваш проект.

brat

У меня FreeReport 2.33 и $DEFINE PRN_RESET вообще отсутствует...????

brat

Может подскажете что лечит $DEFINE PRN_RESET??? А я как-нибудь сам уже подправлю... :-)

gpi

procedure TfrPrinter.SetPrinterIndex(Value: Integer);
begin
  if FPrinterIndex = Value then Exit;

  FPrinterIndex := Value;
  if Value = FDefaultPrinter then
    SetSettings
  else if FPrinter.Printers.Count > 0 then
  begin
    FPrinter.PrinterIndex := Value;
{$IFDEF PRN_RESET}
    FPrinter.GetPrinter(FDevice, FDriver, FPort, FDeviceMode);
    FPrinter.SetPrinter(FDevice, FDriver, FPort, 0);
{$ENDIF}
    GetSettings;
  end;
end;

brat

Спасибо. :-)

brat

Добавленный код ничем не помог :-(
Помогло следующее - сделал картинку монохромной :-)
Пример:

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.Monochrome := true;   // Монохромная картинка
     bitmap.PixelFormat := pf1Bit;  // Монохромная картинка
     bitmap.Width := 390;
     bitmap.Height := 195;

     PrintFrame( bitmap );
     try
       picture.Picture.Assign( bitmap );
     finally
       FreeAndNil( bitmap );
     end;
   end;
 end;
end;