TPrintPreview only in black&white

[Bronius]

Hello,

Can You help me?
I'd like remove colors from PrintPreview using BeginEdit. Is it possible?

Bronius

[Kambiz]

I have no idea!

[Bronius]

Hello, Kambiz,

I found solution of my black&white problem, but in result I loose quality.

In attachment there is sample project.
Can I ask You to take a look ?

May be, You have any idea...

Thank You!
-----------------------------------
Bronius

[Kambiz]

Because of converting metafile to raster graphic, the lose of quality with a zoom factor other 100% is obvious.

By the way, the following code is more optimized.

Code: Select all

procedure TForm1.Button1Click(Sender: TObject);
var
  BM: TBitmap;
begin
  Button1.Enabled := False;
  if PrintPreview1.BeginEdit(1) then
    try
      BM := TBitmap.Create;
      try
        BM.Width := PrintPreview1.Pages[1].Width;
        BM.Height := PrintPreview1.Pages[1].Height;
        BM.PixelFormat := pf1bit;
        BM.Canvas.Draw(0, 0, PrintPreview1.Pages[1]);
        PrintPreview1.Canvas.StretchDraw(PrintPreview1.PageBounds, BM);
      finally
        BM.Free;
      end;
    finally
      PrintPreview1.EndEdit;
    end;
end;

[kokkoras]

I think removing colors from a print out is a matter of the printer's driver. I mean, you can propably force your color printer to print on gray scale or black and white.

Fotis