как перевести пиксели в миллиметры Delphi для печати на принтере

[Dvoishnik]

написал функцию для печати StringGrid хотелось бы отступы сделать чтоб указывались в миллиметрах а не в пикселях

procedure SGridPrint (sTitle:string;SGrid:TStringGrid; MargTop,MargLeft:integer)  ;
var
    x,y,x1,y1,
    j,i:integer;
begin
 Printer.Title := sTitle;
 Printer.BeginDoc;
 Printer.Canvas.Pen.Color  := 0;
 Printer.Canvas.Font := SGrid.Font;
 Printer.Canvas.TextOut(0, 100, Printer.Title);
 for i:=0 to SGrid.ColCount-1 do
 for j:=0 to SGrid.RowCount-1 do
   Begin
    x:=(SGrid.ColWidths[0]+i)*i;
    y:=(SGrid.RowHeights[0]+1)*j;
    x1:=(SGrid.ColWidths[0]+i)*(i+1);
    y1:=(SGrid.RowHeights[0]+1)*(j+1);
    x:=x+MargTop;
    x1:=x1+MargTop;
    y:=y+MargLeft;
    y1:=y1+MargLeft;
    Printer.Canvas.TextRect(rect(x,y,x1,y1),x,y,SGrid.Cells[i,j]);
   end;
 Printer.EndDoc;
end;

Нужно чтобы значение в миллиметрах было для текущего принтера

П.С, проверил это дело оно оказывается еще и не работает(принтер на печать пустой лист отправляет)
до этого на канве, просто вывод проверял, принтера не было под рукой.

[Аватар]

Знаешь сколько пикселей на дюйм у принтера? В дюйме ~ 2,54 см

[Dvoishnik]

Сообщение от Аватар

Знаешь сколько пикселей на дюйм у принтера?

это можно как ни будь программно узнать??
не могу понять почему у меня это дело на канве отрисовывается нормально а на печать не идет.

[Serge_Bliznykov]

в интернетах пишут

GetDeviceCaps(Printer.Handle, LOGPIXELSY);

например, Get the default printers resolution

[Dvoishnik]

Т.Е. пикселей в миллиметре для текущего принтера

Function MMPX():integer;
Begin
MMPX:=round( GetDeviceCaps(Printer.Handle, LOGPIXELSY)*2.54/10 );
end ;

152px в 1 мм реальная цифра для принтера??

Сообщение от Dvoishnik

не могу понять почему у меня это дело на канве отрисовывается нормально а на печать не идет.

не подскажете?

П.С. принтер печатает пустой лист

добавил множитель 5 начал печататься число взял от балды и этим еще больше запутался.
как правильно зная рассчитать этот множитель ?
вообще ума не прилажу.

[Аватар]

dpi/25.4 = пикселей на мм

[Dvoishnik]

Аватар,Serge_Bliznykov, спасибо вам большое
вот что у меня получилось

Function MMPX():integer;
Begin
MMPX:=round( GetDeviceCaps(Printer.Handle, LOGPIXELSY)/25.4 );
end ;

procedure SGridPrint (sTitle:string;SGrid:TStringGrid; MargTop,MargLeft:integer)  ;
var
    x,y,x1,y1,
    MMPXWork,j,i:integer;
begin
 Printer.Title := sTitle;
 Printer.BeginDoc;
 Printer.Canvas.Pen.Color  := 0;
 Printer.Canvas.Font := SGrid.Font;
 Printer.Canvas.TextOut(0,0, sTitle);
 MMPXWork:=MMPX;
 for i:=0 to SGrid.ColCount-1 do
 for j:=0 to SGrid.RowCount-1 do
   Begin
    x:=((SGrid.ColWidths[0]+i)*i)* Trunc(MMPXWork/3);
    y:=((SGrid.RowHeights[0]+1)*j)* Trunc(MMPXWork/2);
    x1:=((SGrid.ColWidths[0]+i)*(i+1))* Trunc(MMPXWork/3);
    y1:=((SGrid.RowHeights[0]+1)*(j+1))* Trunc(MMPXWork/2);
    x:=x+MargTop* MMPXWork;
    x1:=x1+MargTop* MMPXWork;
    y:=y+MargLeft* MMPXWork;
    y1:=y1+MargLeft* MMPXWork;
    Printer.Canvas.TextRect(rect(x,y,x1,y1),x,y,SGrid.Cells[i,j]);
   end;
 Printer.EndDoc;
end;

[Аватар]

Зачем MMPX в цикле вычислять? Один раз достаточно

[min@y™]

не трать зря бумагу и тонер - установи виртуальный принтер.

34.jpg

а ещё есть хитрые компоненты, которые всё сами сделают. Например, вот такой.

[Dvoishnik]

Сообщение от min@y™

не трать зря бумагу и тонер - установи виртуальный принтер.

чет не подумал

Сообщение от min@y™

а ещё есть хитрые компоненты

пока учусь обходиться стандартными средствами, компоненты потом

Аватар, исправил в посте #7