CodeTyphon 7.1 = Windows 10.
Ik heb al diverse pogingen gedaan om in Windows 10 een scherafdruk van een form te printen.
Als ik mijn exe gebruik in Linux(via Wine) dan werkt de print.
Met Windows 10 kan ik wel andere taken printen, zoals documenten met Notepad, enz...
In mijn programma worden er ook (met LazReport) diverse rapporten afgedrukt, die zowel in Linux als in Windows 10 werken.
Er is dus in Windows 10 een probleem in het OS of in driver van HP-Officejet-Pro-9010.
Heb met HP-Docter getest en er waren geen problemen!
Misschien zijn er nog personene die dit probleem kennen?
Code:
procedure TForm1.BitBtn3Click(Sender: TObject);
var
myBitMap : TBitMap;
rct: TRect;
HScaleFactor, VScaleFactor: Single;
begin
if not PrintDialog1.Execute then
Exit;
HScaleFactor:=Printer.XDPI/Screen.PixelsPerInch;
VScaleFactor:=Printer.YDPI/Screen.PixelsPerInch;
myBitMap := TBitMap.Create;
try
myBitMap.LoadFromDevice(Canvas.Handle);
rct:=Rect(0, 0, trunc(myBitMap.Width*HScaleFactor), trunc(myBitMap.Height*VScaleFactor));
Printer.Orientation:=poLandscape;
Printer.BeginDoc;
try
Printer.Canvas.StretchDraw(rct, myBitMap);
finally
Printer.EndDoc;
end;
finally
myBitMap.Free;
end;
end;
Bookmarks