Delphi Печать изображений с такими же размерами, как Word? - PullRequest
Новая
       20

Delphi Печать изображений с такими же размерами, как Word?

0 голосов
/ 23 июня 2019

Впервые в Delphi и пытается научиться печатать.

В Microsoft Word, что я делаю, это вставить изображение, а затем сформировать его размер с 5,6 см и 17,2 см, а затем распечатать с сообщением PrintDialog.

В настоящее время я печатаю

. 
procedure TForm1.Button1Click(Sender: TObject);
var
Bit: TBitmaps;
sRect,DRect:TRect;
begin
 Bit:= TBitmaps.create;
 Bit.Assign(Image1.Bitmap);
 with sRect do begin
   Height:= Bit.Height;
   Width:= Bit.Width;
   Top:= 5;
   Left:= 5;
 end;
 with dRect do begin
    Height:=172; // i used these as i don't know what unit is used for printing 
    Width:=52;
    Top:= 5;
    Left:=5;
 end;
 with Printer do
 begin
   BeginDoc;
   Canvas.DrawBitmap(Bit,sRect,dRect,1);
   EndDoc;
 end;
end;

Сначала использовался принтер, пишущий документ XPS, и изображение в напечатанном xps-файле намного меньше, чем нужный вывод, который я использовал для печати в Microsoft Word.

как мне напечатать то же самое, что и в Microsoft Word?

...