这个问题，难，有人遇到过没有，先给200分(200分)

怎么用Applet写票据套打程序，如何实现单位的转换（mm-->pixel)

急，up

Delphi中票据凭证的精确打印
　　一、概述
　　在银行，税务，邮政等行业的实际工作中，经常涉及到在印刷好具有固定格式的汇款单，储蓄凭证，税票等单据上的确定位置打印输出相关的信息。在此类需求中，精确地定位单据并打印相关信息，是解决问题]的关键。一般情况下，开发者都是通过在打印机上通过重复的测试来达到实际需求。那么，有没有简单有效而又灵活的方法实现上述功能呢？
　　二、基本思路
　　分析上述单据的特征，可以发现：此类打印输出的信息一般比较简短，不涉及到文字过长的折行处理，另外，其打印输出的位置相对固定。因此，我们可以通过用尺子以毫米为单位，测量好每个输出信息位置的横向和纵向坐标，作为信息输出的位置。但由于不同打印机在实际输出效果上，总是存在理论和实际位置的偏差，因此，要求程序具有一定的灵活性，供最终用户根据需要，进行必要的位置调整。因此，可设置一打印配置文件，用于存储横坐标和纵坐标的偏移量，用于用户进行位置校正，从而提供了一定的灵活性。
　　三、精确打印输出的程序实现
　　1． 在Delphi中新建一个名为mprint.pas的单元文件并编写如下程序，单元引用中加入Printers略：
//取得字符的高度
function CharHeight: Word;
var
　Metrics: TTextMetric;
begin
　GetTextMetrics(Printer.Canvas.Handle, Metrics);
　Result := Metrics.tmHeight;
end;
file://取得字符的平均宽度
function AvgCharWidth: Word;
var
　Metrics: TTextMetric;
begin
　GetTextMetrics(Printer.Canvas.Handle, Metrics);
　Result := Metrics.tmAveCharWidth;
end;
file://取得纸张的物理尺寸---单位：点
function GetPhicalPaper: TPoint;
var
　PageSize : TPoint;
begin
　file://PageSize.X;
纸张物理宽度-单位:点
　file://PageSize.Y;
纸张物理高度-单位:点
　Escape(Printer.Handle, GETPHYSPAGESIZE, 0,nil,@PageSize);
　Result := PageSize;
end;
file://2.取得纸张的逻辑宽度--可打印区域
file://取得纸张的逻辑尺寸
function PaperLogicSize: TPoint;
var
　APoint: TPoint;
begin
　APoint.X := Printer.PageWidth;
　APoint.Y := Printer.PageHeight;
　Result := APoint;
end;
file://纸张水平对垂直方向的纵横比例
function HVLogincRatio: Extended;
var
　AP: TPoint;
begin
　Ap := PaperLogicSize;
　Result := Ap.y/Ap.X;
end;
file://取得纸张的横向偏移量-单位：点
function GetOffSetX: Integer;
begin
　Result := GetDeviceCaps(Printer.Handle, PhysicalOffSetX);
end;
file://取得纸张的纵向偏移量-单位：点
function GetOffSetY: Integer;
begin
　Result := GetDeviceCaps(Printer.Handle, PhysicalOffSetY);
end;
file://毫米单位转换为英寸单位
function MmToInch(Length: Extended): Extended;
begin
　Result := Length/25.4;
end;
file://英寸单位转换为毫米单位
function InchToMm(Length: Extended): Extended;
begin
　Result := Length*25.4;
end;
file://取得水平方向每英寸打印机的点数
function HPointsPerInch: Integer;
begin
　Result := GetDeviceCaps(Printer.Handle, LOGPIXELSX);
end;
file://取得纵向方向每英寸打印机的光栅数
function VPointsPerInch: Integer;
begin
　Result := GetDeviceCaps(Printer.Handle, LOGPIXELSY)
end;
file://横向点单位转换为毫米单位
function XPointToMm(Pos: Integer): Extended;
begin
　Result := Pos*25.4/HPointsPerInch;
end;
file://纵向点单位转换为毫米单位
function YPointToMm(Pos: Integer): Extended;
begin
　Result := Pos*25.4/VPointsPerInch;
end;
file://设置纸张高度-单位：mm
procedure SetPaperHeight(Value:integer);
var
　Device : array[0..255] of char;
　Driver : array[0..255] of char;
　Port : array[0..255] of char;
　hDMode : THandle;
　PDMode : PDEVMODE;
begin
file://自定义纸张最小高度127mm
if Value < 127 then
Value := 127;
　file://自定义纸张最大高度432mm
　if Value > 432 then
Value := 432;
　　Printer.PrinterIndex := Printer.PrinterIndex;
　　Printer.GetPrinter(Device, Driver, Port, hDMode);
　　if hDMode <> 0 then
　　　begin
　　　　pDMode := GlobalLock(hDMode);
　　　　if pDMode <> nil then
　　　　begin
　　　　　pDMode^.dmFields := pDMode^.dmFields or DM_PAPERSIZE or
　　　　　　　　　　　　　　　DM_PAPERLENGTH;
　　　　　pDMode^.dmPaperSize := DMPAPER_USER;
　　　　　pDMode^.dmPaperLength := Value * 10;
　　　　　pDMode^.dmFields := pDMode^.dmFields or DMBIN_MANUAL;
　　　　　pDMode^.dmDefaultSource := DMBIN_MANUAL;
　　　　　GlobalUnlock(hDMode);
　　　　end;
　　　end;
　　　Printer.PrinterIndex := Printer.PrinterIndex;
end;
file://设置纸张宽度：单位--mm
Procedure SetPaperWidth(Value:integer);
var
　Device : array[0..255] of char;
　Driver : array[0..255] of char;
　Port : array[0..255] of char;
　hDMode : THandle;
　PDMode : PDEVMODE;
begin
file://自定义纸张最小宽度76mm
if Value < 76 then
Value := 76;
　file://自定义纸张最大宽度216mm
　if Value > 216 then
Value := 216;
　　Printer.PrinterIndex := Printer.PrinterIndex;
　　Printer.GetPrinter(Device, Driver, Port, hDMode);
　　if hDMode <> 0 then
　　begin
　　　pDMode := GlobalLock(hDMode);
　　　if pDMode <> nil then
　　　begin
　　　　pDMode^.dmFields := pDMode^.dmFields or DM_PAPERSIZE or
　　　　　　　　　　　　　　DM_PAPERWIDTH;
　　　　pDMode^.dmPaperSize := DMPAPER_USER;
　　　　file://将毫米单位转换为0.1mm单位
　　　　pDMode^.dmPaperWidth := Value * 10;
　　　　pDMode^.dmFields := pDMode^.dmFields or DMBIN_MANUAL;
　　　　pDMode^.dmDefaultSource := DMBIN_MANUAL;
　　　　GlobalUnlock(hDMode);
　　　end;
　　end;
　　Printer.PrinterIndex := Printer.PrinterIndex;
end;
file://在 (Xmm, Ymm)处按指定配置文件信息和字体输出字符串
procedure PrintText(X, Y: Extended;
Txt: string;
ConfigFileName: string;
FontSize: Integer=12);
var
　OrX, OrY: Extended;
　Px, Py: Integer;
　AP: TPoint;
　Fn: TStrings;
　FileName: string;
　OffSetX, OffSetY: Integer;
begin
file://打开配置文件，读出横向和纵向偏移量
try
　Fn := TStringList.Create;
　FileName := ExtractFilePath(Application.ExeName) + ConfigFileName;
　if FileExists(FileName) then
　begin
　　Fn.LoadFromFile(FileName);
　　file://横向偏移量
　　OffSetX := StrToInt(Fn.Values['X']);
　　file://纵向偏移量
　　OffSetY := StrToInt(Fn.Values['Y']);
　end
else
begin
　file://如果没有配置文件，则生成
　Fn.Values['X'] := '0';
　Fn.Values['Y'] := '0';
　Fn.SaveToFile(FileName);
end;
finally
　Fn.Free;
end;
X := X + OffSetX;
Y := Y + OffSetY;
Px := Round(Round(X * HPointsPerInch * 10000/25.4) / 10000);
Py := Round(Round(Y * VPointsPerInch * 10000/25.4) / 10000);
Py := Py - GetOffSetY;
file://因为是绝对坐标, 因此, 不用换算成相对于Y轴坐标
Px := Px + 2 * AvgCharWidth;
Printer.Canvas.Font.Name := '宋体';
Printer.Canvas.Font.Size := FontSize;
file://Printer.Canvas.Font.Color := clGreen;
Printer.Canvas.TextOut(Px, Py, Txt);
end;

　　2． 使用举例
　　在主窗体中加入对mprint单元的引用，在一命令钮的OnClick事件中书写如下代码（用于在邮政汇款单上的相应方框内打印邮政编码843300）：
Printer.begin
Doc;
PrintText(16, 14, '8', 'config.txt');
PrintText(26, 14, '4', 'config.txt');
PrintText(36, 14, '3', 'config.txt');
PrintText(46, 14, '3', 'config.txt');
PrintText(56, 14, '0', 'config.txt');
PrintText(66, 14, '0', 'config.txt');
Printer.EndDoc;
　　观察结果，用尺子测量偏移量，在config.txt文件中修改X，Y的值即可。
　　其它，设置打印机和纸张类型从略。
　　四、结束语
　　笔者通过该方法，实现了邮政汇款单，储蓄凭证，客户信封等单据的精确打印，取得了较为满意的效果。该程序在Windows98，Delphi5下调试通过。

to ugvanxk:
我想用Applet实现，你有办法吗？

用acrobat reader可以打印

To xusong168:
能举一个例子吗，如我想在距页面的坐上角(10mm,10mm)坐标处输出:"Hello world!"
怎么定义pdf格式。

我也不会

我们问的是 JAVA 不是 DELPHI，JAVA 就难了！！！！！

APPLET如果没有签名的话，没有访问本地资源的权限
JAVA是支持打印的，但是非常的不好用
所以你可以用javascript或者applet控制一个ocx去打印
ocx可以用delphi编写

OCX 倒是个不错的主意！！！

用JAVASCRIPT打到WORD中，然后再操作。
再不行，去买报表软件，如水晶之类，但价钱很贵

难！

You can use the PDF report generator, like Elixir Report for personal, etc. These tools can give you most data formats you want.
It can be used in Java application as well as Applet.