Printing in black and white

Comments

• mrzxc

  January 2011 edited January 2011

  Yes, I have encountered this situation too.
  Regards!
• Anu de Deus Hampshire, UK

  January 2011 edited 7:42PM

  My (wild) guess is that you are somehow destroying the printing options object, and recreating it on your code and that is putting it back to the default values.
  Try to reuse as many objects as you can (starting with the tfrxReport one).
  
• mrzxc

  January 2011 edited 7:42PM

  but 4.6.x worked fine.
• reimers

  January 2011 edited 7:42PM

  Yes that??s right.
  
  In prior Versions all worked fine.
  
  
  And I am not doing anything with the printing options.
  I only tell Fastreport the printer on which to print.
  
  And remember that happens only on this one specific printer (HP C1215 Color-Laserjet).
  
  
  
  @mrzxc
  What printer are you using, when this happens ?
  
  
  
  Regards
  Erik
• mrzxc

  January 2011 edited 7:42PM

  My printer is HP C1215 Color-Laserjet too. And HP Color laserjet 3600n is ok.
• reimers

  January 2011 edited 7:42PM

  Yes maybe it??s a problem of HP.
  
  But there are no new drivers for this printer.
  And the support of HP is not so good.
  
  
  But the other thing is that earlier Versions of FastReport did well, with this HP model.
  
  Probably the guys of FastReport could investigate that.
  
  
  
  Regards
  Erik
• mrzxc

  January 2011 edited 7:42PM

  I solved this problem temporarily.
  frxPrinter.pas
  .......
  procedure TfrxPrinter.EndDoc;
  var
  Saved8087CW: Word;
  begin
  Saved8087CW := Default8087CW;
  Set8087CW($133F);
  try
  Windows.EndDoc(FDC);
  except
  end;
  Set8087CW(Saved8087CW);
  
  FPrinting := False;
  RecreateDC;
  FBin := -1;
  FDuplex := -1;
  
  // FMode.dmFields := DM_DEFAULTSOURCE or DM_DUPLEX;//rem this line, It will working fine.
  FMode.dmDefaultSource := FDefBin;
  FMode.dmDuplex := FDefDuplex;
  
  FDC := ResetDC(FDC, FMode^);
  end;