PrintPreview: Bug in Printer Drivers

[aram]

Sorry. My english is not very good.
I'm using TPRINTPREVIEW 4.62 with Delphi 7 and i have added any new methods for easily works designing reports. Those methods works all in millimeters:

Procedure Line(Const X1,Y1,X2,Y2: Integer; width: integer; Style: TpenStyle);
*** DRAW A SIMPLE LINE FROM X1,Y1 TO X2,Y2 of WIDTH points


Procedure Rectangle(Const X1,Y1,X2,Y2: Integer; width: integer; Style: TBrushStyle; Shadow: boolean);
*** DRAW A RECTANGLE FROM X1,Y1 TO X2,Y2 of WIDTH points with STYLE, and with or without right and bottom border shadowed


Procedure TextOut(X, Y: integer; Text: String; fname: String;
fSize: byte; fStyle: TFontStyles ;fColor: TColor;
TAlign: TAlignment; Datos: Boolean; Column: Byte);

*** DRAW A TEXT FROM X, Y with Font Fname, with Size FSize and Style, Color and Alignment. Rest of parameter are not now in use. In future can me to exports reports to HTML or CSV, etc


Procedure TextOutWB(X, Y, X1, Y1: integer; Text: String; fname: String;
fSize: byte; fStyle: TFontStyles ;fColor: TColor);

*** DRAW A TEXT CLIPPED Between X,Y and X1,Y1 with Font, size, Style and Color...


I have encontered any problems with some printers drivers like HP Deskjet Color in USB (original hp drivers) in Windows 98 that leave the page in blank.

The Brother 730 laser printer installed in windows98 did not work fine too. They not draw fine background in BsClear rectangle.
Can you help me?
Are they any membre working in export reports from tprintpreview? i'm interested...
if you need source code of news methods, please, post me a reply.

[Kambiz]

Dear Aram,

There are many crappy printer drivers around.

Try to put the following lines of code in your functions, hope to fix the problem.

Code: Select all

SetBkColor(Canvas.Handle, RGB(255, 255, 255));
SetBkMode(Canvas.Handle, TRANSPARENT);

[aram]

Thanks, i will try your solution...

Aram.