好久没有使用该语言了。关于按下按钮就直接打印（如发票）。特殊格式打印！

[kw123]

朋友让做一个打印标签（特殊纸大小，如发票类型），标签大小固定。字体大小以及位置也是设定的好的。
输入不同的信息，按下打印就可以直接输入到打印机（针打）即可

好久没有使用DELPHI了，对于这些打印也不擅长的。

希望大家提供实现方式。对于做过发票打印以及各种格式打印的人员来说不难的

100分赠与了！

谢谢大家

[knife_s]

从2CCC中下的一个套打单元,作者杨振华,删除了一些功能

use后如下调用

_OutTxt(145,52,edtUsetype.Text,4,'宋体');

unit Print;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Printers, Grids, DBGrids, DB, ADODB,DateUtils, ExtCtrls;

    procedure SetPaperHeight(Value:integer);   //设置纸张高度-单位：mm
    procedure SetPaperWidth(Value:integer);  //设置纸张宽度：单位--mm
    function _init(PageSize:TPoint):Boolean;     //
    function _outTxt(x,y:Real;Txt:String;FontSize:Real;FontName:String):Boolean;
    procedure PrintPage();
    procedure PrintPageend();
    procedure PrintNewPage();

var

    PhysicalWidth,PhysicalHeight,PageWidth,PageHeight,PageLeft,PageRight,PageTop,PageBottom:Integer;
    mm_H,mm_V:real; //毫米



implementation

procedure SetPaperHeight(Value:integer);   //设置纸张高度-单位：mm
var
  Device : array[0..255] of char;
  Driver : array[0..255] of char;
  Port : array[0..255] of char;
  hDMode : THandle;
  PDMode : PDEVMODE;
begin
if Value < 127 then Value := 127;   //自定义纸张最小高度127mm
  if Value > 432 then Value := 432; //自定义纸张最大高度432mm
    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;


procedure SetPaperWidth(Value:integer);  //设置纸张宽度：单位--mm
var
  Device : array[0..255] of char;
  Driver : array[0..255] of char;
  Port : array[0..255] of char;
  hDMode : THandle;
  PDMode : PDEVMODE;
begin
if Value < 76 then Value := 76;      //自定义纸张最小宽度76mm
  if Value > 216 then Value := 216;  //自定义纸张最大宽度216mm
    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;
        pDMode^.dmPaperWidth := Value * 10;    //将毫米单位转换为0.1mm单位
        pDMode^.dmFields := pDMode^.dmFields or DMBIN_MANUAL;
        pDMode^.dmDefaultSource := DMBIN_MANUAL;
        GlobalUnlock(hDMode);
      end;
    end;
    Printer.PrinterIndex := Printer.PrinterIndex;
end;

function _init(PageSize:TPoint):Boolean;     //
begin
  PhysicalWidth:=PageSize.x;                                     //物理页宽
  PhysicalHeight:=PageSize.Y;                                    //物理页高
  PageWidth:=printer.PageWidth;                                  //逻辑页宽
  PageHeight:=printer.PageHeight;                                //逻辑页高
  PageLeft:=GetDeviceCaps(Printer.Handle,PHYSICALOFFSETX);       //左边距
  PageTop:=GetDeviceCaps(Printer.Handle,PHYSICALOFFSETY);        //上边距
  PageRight:=PhysicalWidth-PageLeft-PageWidth;                   //右边距
  PageBottom:=PhysicalHeight-PageTop-PageHeight;                 //下边距
end;

function _outTxt(x,y:Real;Txt:String;FontSize:Real;FontName:String):Boolean;
var
  LogRec: TLOGFONT;
  OldFont, NewFont: HFONT;
  i: LongInt;
begin
  with printer do
  begin
   GetObject(Canvas.Font.Handle, SizeOf(LogRec), @LogRec);
   LogRec.lfOutPrecision := OUT_TT_ONLY_PRECIS;
   LogRec.lfFaceName :='宋体';
   LogRec.lfHeight:=round(FontSize*mm_V);
   LogRec.lfWeight:=0;
    NewFont := CreateFontIndirect(LogRec);
    OldFont := SelectObject(Canvas.Handle,NewFont);
  end;
   x:=Round(x*mm_H)-PageLeft;
   y:=Round(y*mm_V)-PageTop;
   Printer.Canvas.TextOut(round(x),round(y),txt);
end;

procedure PrintPage();
var
    PageSize:Tpoint;
    PointX,PointY:Integer;   //英寸
begin
    Printer.Canvas.Brush.Style := bsclear;
    Escape(Printer.Handle, GETPHYSPAGESIZE, 0,nil,@PageSize);      //取得物理页尺寸
    PointX:=GetDeviceCaps(Printer.Handle,LOGPIXELSX);
    PointY:=GetDeviceCaps(Printer.Handle,LOGPIXELSY);
    mm_H:=PointX/25.4;
    mm_V:=PointY/25.4;
    Printer.BeginDoc;
end;

procedure PrintPageend;
begin
  Printer.EndDoc;
end;


procedure PrintNewPage();
 begin
  printer.NewPage;
 end;

end.

[zhu_gx]

顶你

[kw123]

有没有具体的代码啊

[纯冰糖]

你说的,我感觉是套打功能，适用FastReport可以实现，很方便。

[wxmwxmwxm]

FastReport,QuickReport都可以实现

[try__again]

用delphi的print，实现过，不过要设置位置什么的非常麻烦

用fastreport，没去试过

[Ascn]

我一直使用的FR来做打印。套打功能很好实现的。可以在设计报表时，把不需要打印的控件（Memoview和表格线）的Printable属性设置为False
只有要打印的才保留默认的Printable属性为True

不过，如果想在这里说清楚是不容易的，因为报表设计窗口中的细节没办法描述清楚。
代码倒是很好贴出来，不过光有代码是不够的

[zhangpuqing]

我有一个现成的标签打印程序,500RMB,需要的话联系我.

[wjbwjb]

fastreport的打印代码:
frmPersonPay.frReport1.LoadFromFile(extractfilepath(application.ExeName)+'\发票.frf');
frmPersonPay.frReport1.PrepareReport;
frmPersonPay.frReport1.PrintPreparedReport('',1,true,frall);

[wjbwjb]

在fastreport的发票.frf设置好打印纸张的尺寸