小民有难,各位大侠这里有请:如何控制打印机打印小票(不用报表控件).(50分)

如题:

用什麼做報表的？
自定義紙張的大小呀!

我没有做过这方面的打印,
听说是取到相关数据真接送打印机,
uses printers...;
procedure rprint;
begin
with printerdo

begin
begin
doc;
....
enddoc;
end;
end;
但是我做不好,打印不出来,出错.[?][?],有请各位大虾指点.

要求打印机有硬字库：
procedure TForm1.Button1Click(Sender: TObject);
var
F:TEXTFILE;
begin
ASSIGNFILE(F,'LPT1');
REWRITE(F);
WRITELN(F,chr(27) '@');
//initial the printer
WRITELN(F,'TEST1 FIRST LINE');你的内容
WRITELN(F,chr(12));
// move the paper to a new page
CLOSEFILE(F);
end;
具体的控制码参看你的打印机说明书。

to wwwwb 大哥:
多谢你的指点,在这里我想请教一下你,
如何控制打印的字体类型,以及打印的行列位置??[?]

使用Print!

为什么不用canvas来控制打印呢?

to tiger_520,hlh974:
你们好!
是的,如果用printer.canvas.TextOut()控制打印,如何设置的字体,字型...
坐标行,列的位置??[?]

建议参考一下《delphi5开发人员指南》

我的通用套打单元，可以解决你的
‘如何控制打印的字体类型,以及打印的行列位置??’
问题。可的给多分啊！（：
unit UN_TDprint;
interface
uses
Printers,Windows, Messages, SysUtils, Variants, Classes, Graphics, Dialogs, Controls,forms;
//取得字符的高度
function CharHeight: Word;
//取得字符的平均宽度
function AvgCharWidth: Word;
//取得纸张的物理尺寸---单位：点
function GetPhicalPaper: TPoint;
//取得纸张的逻辑宽度--可打印区域,取得纸张的逻辑尺寸
function PaperLogicSize: TPoint;
//纸张水平对垂直方向的纵横比例
function HVLogincRatio: Extended;
//取得纸张的横向偏移量-单位：点
function GetOffSetX: Integer;
//取得纸张的纵向偏移量-单位：点
function GetOffSetY: Integer;
//毫米单位转换为英寸单位
function MmToInch(Length: Extended): Extended;
//英寸单位转换为毫米单位
function InchToMm(Length: Extended): Extended;
//取得水平方向每英寸打印机的点数
function HPointsPerInch: Integer;
//取得纵向方向每英寸打印机的光栅数
function VPointsPerInch: Integer;
//横向点单位转换为毫米单位
function XPointToMm(Pos: Integer): Extended;
//纵向点单位转换为毫米单位
function YPointToMm(Pos: Integer): Extended;
//设置纸张高度-单位：mm
procedure SetPaperHeight(Value:integer);
//设置纸张宽度：单位--mm
Procedure SetPaperWidth(Value:integer);
//在 (Xmm, Ymm)处按指定配置文件信息和字体输出字符串
procedure PrintText(X, Y: Extended;
Txt: string;
ConfigFileName: string;FontSize: Integer=12);
implementation
//取得字符的高度
function CharHeight: Word;
var
Metrics: TTextMetric;
begin
GetTextMetrics(Printer.Canvas.Handle, Metrics);
Result := Metrics.tmHeight;
end;

//取得字符的平均宽度
function AvgCharWidth: Word;
var
Metrics: TTextMetric;
begin
GetTextMetrics(Printer.Canvas.Handle, Metrics);
Result := Metrics.tmAveCharWidth;
end;

//取得纸张的物理尺寸---单位：点
function GetPhicalPaper: TPoint;
var
PageSize : TPoint;
begin
//PageSize.X/;
纸张物理宽度-单位:点
//PageSize.Y/;
纸张物理高度-单位:点
Escape(Printer.Handle, GETPHYSPAGESIZE, 0,nil,@PageSize);
Result := PageSize;
end;

//取得纸张的逻辑宽度--可打印区域,取得纸张的逻辑尺寸
function PaperLogicSize: TPoint;
var
APoint: TPoint;
begin
APoint.X := Printer.PageWidth;
APoint.Y := Printer.PageHeight;
Result := APoint;
end;

//纸张水平对垂直方向的纵横比例
function HVLogincRatio: Extended;
var
AP: TPoint;
begin
Ap := PaperLogicSize;
Result := Ap.y/Ap.X;
end;

//取得纸张的横向偏移量-单位：点
function GetOffSetX: Integer;
begin
Result := GetDeviceCaps(Printer.Handle, PhysicalOffSetX);
end;

//取得纸张的纵向偏移量-单位：点
function GetOffSetY: Integer;
begin
Result := GetDeviceCaps(Printer.Handle, PhysicalOffSetY);
end;

//毫米单位转换为英寸单位
function MmToInch(Length: Extended): Extended;
begin
Result := Length/25.4;
end;

//英寸单位转换为毫米单位
function InchToMm(Length: Extended): Extended;
begin
Result := Length*25.4;
end;

//取得水平方向每英寸打印机的点数
function HPointsPerInch: Integer;
begin
Result := GetDeviceCaps(Printer.Handle, LOGPIXELSX);
end;

//取得纵向方向每英寸打印机的光栅数
function VPointsPerInch: Integer;
begin
Result := GetDeviceCaps(Printer.Handle, LOGPIXELSY)
end;

//横向点单位转换为毫米单位
function XPointToMm(Pos: Integer): Extended;
begin
Result := Pos*25.4/HPointsPerInch;
end;

//纵向点单位转换为毫米单位
function YPointToMm(Pos: Integer): Extended;
begin
Result := Pos*25.4/VPointsPerInch;
end;

//设置纸张高度-单位：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
//自定义纸张最小高度127mm
if Value < 127 then
Value := 127;
//自定义纸张最大高度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;

//设置纸张宽度：单位--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
//自定义纸张最小宽度76mm
if Value < 76 then
Value := 76;
//自定义纸张最大宽度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;
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;

//在 (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
//打开配置文件，读出横向和纵向偏移量
try
Fn := TStringList.Create;
FileName := ExtractFilePath(Application.ExeName) + ConfigFileName;
if FileExists(FileName) then
begin
Fn.LoadFromFile(FileName);
OffSetX := StrToInt(Fn.Values['X']);
//横向偏移量
OffSetY := StrToInt(Fn.Values['Y']);
//纵向偏移量
end
else
begin
//如果没有配置文件，则生成
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;
//因为是绝对坐标, 因此, 不用换算成相对于Y轴坐标
Px := Px + 2 * AvgCharWidth;
Printer.Canvas.Font.Name := '宋体';
Printer.Canvas.Font.Size := FontSize;
//Printer.Canvas.Font.Color := clGreen;
Printer.Canvas.TextOut(Px, Py, Txt);
end;
end.

应用： 在你要套打的单元里uses这个单元：UN_TDprint，
然后这样：
Printer.begin
Doc;
PrintText(16, 14, '8', 'config.txt');
PrintText(26, 14, '4', 'config.txt');
Printer.EndDoc;
　　观察结果，用尺子测量偏移量，在config.txt文件中修改X，Y的值即可。
　　

to 网事如风 大侠：
多谢你的提示，如果我测试通过，肯定多给分你的。

我做过POS系统应该用没有驱动的打印机可以做,但要有打印机的接口 我可以给你一个接口
把你的E-mail给我吧

TO gltv:
好的,先行谢过,我的EMAIL : martin_fu@163.net

你看看下面的例子：
设置字体：printer.Canvas.Font.Size :=14 ;
设置字形：printer.Canvas.Font.Name := 宋体 ;
控制位置：printer.Canvas.TextOut(x,y,'string') ;
x 根据‘string’的长度增加。
y 可以根据字体的高度增加。

直接写端口，搜索以前的帖子，好多都是这样的问题。

to 草原骏马 :
依你的思路：
uses printers..;
procedure rprint;
begin
with printerdo

begin
printer.Canvas.Font.Size :=14 ;
printer.Canvas.Font.Name := '宋体' ;
printer.Canvas.TextOut(0,0,'谢谢的指点') ;
printer.Canvas.TextOut(6,0,'调试不通') ;
printer.Canvas.TextOut(8,0,'行列如何定位处理？') ;
end;
end;
end.

to 网事如风 :
你好，你的共用模块好象用不了。你能解释一下吗？

ff