Need to know current printer PPI
How to get printer PPI? I'm using TPrintPreview. I know how to get vert/hor DPI, but don't know how to PPI?
The place to exchange ideas and experiences on Delphi programming
http://forum.delphiarea.com/
dp := Round(Sqrt(Sqr(PrintPreview1.PageDevicePixels.X) + Sqr(PrintPreview1.PageDevicePixels.Y)));
di := Round(Sqrt(Sqr(PrintPreview1.PageDevicePixels.X div GetDeviceCaps(PrintPreview1.Printer.Handle, LOGPIXELSX)) + Sqr(PrintPreview1.PageDevicePixels.Y div GetDeviceCaps(PrintPreview1.Printer.Handle, LOGPIXELSY))));
ppi := dp div di;