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

Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

如何直接控制打印机输出?
在C语言中用的fprintf(stdprn,"%s",Data)函数，
在Delphi中应如何写？请高手指教!!!补充：关键字"stdprn"在Delphi中对应是什么？
如果用汇编语言写，又如何写呢?在Pascal中有类似的，Writeln(LST,Data)可向打印机输出;"LST"关键字定义在Printer标准单元里，表示向打印机输出。但在Delphi中不可用。请各位不吝指教。

Answer 5

頂不動了吧？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;

Answer 6

打印机用TPrinterhttp://lysoft.7u7.net

Answer 7

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

Answer 8

var
 prn: TextFile;
begin
 AssignFile(Prn,'LPT1');
 try
   Rewrite(Prn);
   writeln(prn,AString);
 finally
   CloseFile(Prn);
 end;
end;不知道可不可以...  我用这个打收银小票的..