寻票据打印源代码 寻票据打印源代码 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我有同感,帮你顶一下。谁有给我一份。[email protected] http://expert.csdn.net/Expert/topic/1224/1224763.xml?temp=.9221002 超级猛料2003中精确打印输出的程序实现 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://设置纸张高度-单位:mmprocedure 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;beginfile://自定义纸张最小高度127mmif 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://设置纸张宽度:单位--mmProcedure 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;beginfile://自定义纸张最小宽度76mmif 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;beginfile://打开配置文件,读出横向和纵向偏移量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']); endelsebegin 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.BeginDoc;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的值即可。 其它,设置打印机和纸张类型从略。 安装1stclass 遇到的问题 如何给DBGrid某行某列赋值 DBGRID显示的一个问题 领分处4——ronaldli(木的) 请来领分,并感谢你的帮助! 急!一个关于DBGridEh的问题,在线等待,在线讨论!! 关于Table的数据写回硬盘的问题50分 怎麼樣讓程序運行圖標在右下角裡? 用过DELPHI4。0 的请进来谈谈与6.0的区别 专家分过600了,送分:程序排错(越界问题)。3点结帖! 那里有GIF的DELPHI5控件 一点看法,也不知道对不对!来讨论一下,无论对错都给分! 怎样使一个Label变成两行啊
谁有给我一份。
[email protected]
精确打印输出的程序实现
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://设置纸张高度-单位:mmprocedure 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;beginfile://自定义纸张最小高度127mmif 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://设置纸张宽度:单位--mmProcedure 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;beginfile://自定义纸张最小宽度76mmif 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;beginfile://打开配置文件,读出横向和纵向偏移量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']); endelsebegin 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.BeginDoc;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的值即可。 其它,设置打印机和纸张类型从略。