DELPHI AREA :: View topic - TPrintPreview

through

[^/[Print]\]

DELPHI AREA -> DELPHI AREA's Products

#1: TPrintPreview - Anybody to help? Author: Kambiz, Location: Tehran, Iran

Posted: 04/08/04 07:35
—

sbussinger wrote:

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:

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

#2: Author: aspence, Location: Wolfville, N.S. Canada

Posted: 06/08/04 17:18
—
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:

// 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;

DELPHI AREA -> DELPHI AREA's Products

output generated using printer-friendly topic mod. All times are GMT

Page 1 of 1