如何直接控制打印机输出?在C语言中用的fprintf(stdprn,"%s",Data)函数，在Delphi中应如何写？请高手指教!!!

[Jeacy1]

如何直接控制打印机输出?
在C语言中用的fprintf(stdprn,"%s",Data)函数，
在Delphi中应如何写？请高手指教!!!

[Jeacy1]

补充：关键字"stdprn"在Delphi中对应是什么？
如果用汇编语言写，又如何写呢?

[beyondtkl]

Delphi 好像没有这么猛的 函数。。。
需要分好几步走。。

[Jeacy1]

在Pascal中有类似的，Writeln(LST,Data)可向打印机输出;"LST"关键字定义在Printer标准单元里，表示向打印机输出。但在Delphi中不可用。请各位不吝指教。

[Jeacy1]

请大家帮我一下，感谢感谢。。。。。。

[Jeacy1]

如何直接控制打印机输出?
在C语言中用的fprintf(stdprn,"%s",Data)函数，
在Delphi中应如何写？请高手指教!!!

补充：关键字"stdprn"在Delphi中对应是什么？
如果用汇编语言写，又如何写呢?

在Pascal中有类似的，Writeln(LST,Data)可向打印机输出;"LST"关键字定义在Printer标准单元里，表示向打印机输出。但在Delphi中不可用。请各位不吝指教。

[ly_liuyang]

打印机用TPrinter

http://lysoft.7u7.net

[zzmdegm]

用报表控件啊！

[Jeacy1]

大家请注意:我要精确控制打印位置，而且要打印的纸高小于10Cm(才7.1Cm),连续纸。打印机用的是EPSON的针式打印机，还要打印39条码。我们都知道，在windows下的打印都是"按页输出"的,EPSON的针式打印机当纸高小于10CM时，不能精确走纸(EPSON公司技术部也认可)。如按页输出，我测试过，当纸自定义大小为719时实际走纸为690当自定义大小为720时实际走纸为750。无论如何都无法走7.1CM(710)。我咨询EPSON公司，他们表示小于10CM的纸他们无法保证精确纸。要精确走纸唯有自己开发打印机程序直接控制打印机，他们向我提供了一份开发的技术资料，就是用上面提及的fprintf(stdprn,"%c%c",27,'*')函数输出控制命令。不知在Delphi下应如何？请高手教我!!!!!

[Jeacy1]

在说一下，我打印的是"车票"。

[warmworm]

......
有没有API试试

[Jeacy1]

API好像没有这样的函数。

[cronuz]

頂不動了吧？hehe... 　在Delphi中直接打印的可用「Printer」

uses Printers;

procedure TForm1.Button1Click(Sender: TObject);
var str: String;
begin
str := 'Send Data Directly to Printer';
Printer.BeginDoc;
Printer.Canvas.Font.Size := 12;
Printer.Canvas.Font.Style := [fsBold, fsUnderline];
Printer.Canvas.TextOut(2, 100, Format('Hello! %s',[str]));
Printer.EndDoc;
end;

[Jeacy1]

高手出来帮忙啊。。。

[ricefish]

var
prn: TextFile;
begin
AssignFile(Prn,'LPT1');
try
Rewrite(Prn);
writeln(prn,AString);
finally
CloseFile(Prn);
end;
end;

不知道可不可以... 我用这个打收银小票的..

[Jeacy1]

我试一下，谢谢仁兄！