TPrintPreview - Anybody to help?

[Kambiz]

My second problem was also related to GetPrinterPageBounds() routine. It returns values based on the physical size of the page rather than the logical size of the page. In my case that's an issue, but it may be better the way it is for everyone else. My problem arises because inkjets tend to have much larger bottom margins than laser printers and my output was getting cropped. I'd like to propose this change to GetPrinterPageBounds():

Code: Select all

Replace

      Result.Right := GetDeviceCaps(Printer.Handle, PHYSICALWIDTH);
      Result.Bottom := GetDeviceCaps(Printer.Handle, PHYSICALHEIGHT);

with

      Result.Right := GetDeviceCaps(Printer.Handle, HORZRES);
      Result.Bottom := GetDeviceCaps(Printer.Handle, VERTRES);

This would mean that if UsePrinterOptions is true, that the page size is based on the printable area of the page rather than on the full size of the page in question. Any thoughts?

I don't have printer to try sbussinger's suggestion on the other kind of printers. Any help would be appreciated.

Greetings,
Kambiz

[aspence]

GetPrinterPageBounds() does what it is supposed to do I believe and that is to return the physical size of the page. What you are probably looking for and what I was looking for at one point was the rectangle that defines the printable area within the page bounds rectangle. I wrote the following routine to do that:

Code: Select all

// This function should be called immediately after 'BeginDoc'
function GetPrintableRect : TRect;
begin
  with PrintPreview do
  begin
    Result.Left   :=
      ConvertUnits(GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX),
      GetDeviceCaps(Printer.Handle, LOGPIXELSX),
      mmPixel, Units);
    Result.Top    :=
      ConvertUnits(GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY),
      GetDeviceCaps(Printer.Handle, LOGPIXELSY),
      mmPixel, Units);
    Result.Right  :=
      Result.Left + ConvertUnits(Printer.PageWidth,
      GetDeviceCaps(Printer.Handle, LOGPIXELSX),
      mmPixel, Units);
    Result.Bottom :=
      Result.Top + ConvertUnits(Printer.PageHeight,
      GetDeviceCaps(Printer.Handle, LOGPIXELSY),
      mmPixel, Units);
  end;
end;