怎么在delphi程序中设置打印机的分辨率，使得打印程序在任何的打印机上打印出的效果都一样

Question

procedure TPayReportForm.Printquan2;
var
  OrderDetailAry:TOrderDetailAry;
  PrinterInfo:TPrinterInfo;
begin
  FoodDataModule.CheckPrintName('本地',PrinterInfo);
  Printer.SetPrinter(PAnsiChar(PrinterInfo.PrinterName),'','',0);
  Printer.BeginDoc;
  with Printer.Canvas do
  begin
    font.size:=MainForm.PaiSize;
    TextOut(200,50, '台号' );
    TextOut(130,100,'消费金额是:');
    TextOut(160,150,'赠送券:');
    TextOut(140,210,'请到迎宾台领取');
    TextOut(190,260,'隔日无效');
    TextOut(120,310,FormatDateTime('yyyy年mm月dd日 hh:mm:ss',now));
  end;
   printer.EndDoc;
end;
这是刚的一个打印程序，在新北洋的打印机上打印结果正常，用爱普生的打印机改变下分辨率打印出来就乱了，请问怎么在程序里动态设置打印机的分辨率，或者有什么更好的方法能让他在任何打印机上打印出来的效果都一样

Answer 1

各厂家的打印机的分辨率可能是不同的，你无法保证所有的打印机都能使用同一分辨率。比如说一款打印机的最高分辨率为120DPI,而另一款最高为96DPI,你如何能保证分辨率为120DPI？
除非你能了解所有通用的打印机的公用分辨率

Answer 2

这里有你需要的答案
http://www.softhouse.com.cn/news/show/70797.html原文如下：
Delphi编写打印程序的窍门    如果你想自己用Delphi编写一个打印程序，那么，下面这些技巧或许对你有所帮助。    1.获娶显示当前打印机的分辨率    Windows下的打印分辨对打印程序有着至关重要的作用，如果你想知道打印机的分辨率，请在程序中加入一行：ShowMessage(′水平分辨率′＋inttostr(GetDeviceCaps(printerHandle,LOGPIXELSX))＋chr(13)＋′垂直分辨率：′＋inttostr(GetDeviceCaps(printerHandle,LOGPIXELSY)));结果就一目了然了。    2.将结果直接送到打印机    Delphi提供了两种打印方式：一是将结果输送到Form，再调用Form的print方法将结果输送到打印机，二是将结果直接输送到打印机。如果你采用第一种方式，则无论你怎样调整Form的PrintScal属性，打印出来的东西也不会让你满意。因此建议采用第二种方式。    3.尽量不要使用AssignPrn    尽管AssignPrn简化了文本打印操作，使输出到打印机像输出到文件一样简单。但简单带来的是一系列的不方便：你无法知道当前打印的行数，无法准确控制行距，无法灵活改变字体字形等等。还是用打印机的Canvas属性进行打印吧。    4.用打印机的点数做度量单位    如果想让打印程序在任何打印机上都能正常地打印，你就必须改变你的度量单位。如果采用固定的度量，不同分辨率的打印效果是不同的。举例来讲：printerCanvasrectangle(0,0,360,720)在360×360的佳能4200SP上能打出一个1英寸宽、2英寸高的矩形，但在600×600的惠普6L上只能打出06英寸宽、12英寸高的矩形。使用打印机的点数做为度量单位是一个明智的选择。具体做法如下：VarPointX,PointY:integer;PointX:=GetDeviceCaps(printerHandle,LOGPIXELSX);PointY:=GetDeviceCaps(printerHandle,LOGPIXELSX);printerCanvasrectangle(0,0,PointX＊1,PointY＊2)这样，无论你使用什么样的打印机，都能得到一个1英寸宽、2英寸高的矩形
。
    5.添加打印程序单元    尽管Delphi在生成窗体时会自动在USES部分加入许多程序单元，但打印程序单元(Printers)却不在之列，要想使打印机正常工作和程序不出错，你还是老老实实手工给它加上吧。 
领会一下第四点，应该可以吧

Answer 3

nhscorpio 的方法就可以了。 都是这样做的。

Answer 4

打印机分辨率不同，所以打印位置不同。
一般都是GetDeviceCaps 动态取得分辨率，
动态调整位置。不过你也可以创建一个BMP，BMP的
DC上画图，打印的时候，不同的打印机，
就是大小不同，但是相对位置不会错的。