即打即停的控制！（控制针式打印机）

Question

即页面上文字到那里，打印机就打印到那里，不继续走纸。
我用的是delphi5自带的quickreport标准控件.怎样实现？
如果用代码怎么实现？

Answer 1

可以模仿dos下命令行的做法，但98和2000的命令不一样

Answer 2

参阅delphi葵花宝典，或者是delphi大富翁

Answer 3

我PRINTER直接输出可以控制走纸大小，比用报表程序还好用！
VAR
device,driver,post:array[0..255]of char;
  hdmode:THandle ;
  pdmode:PDevMode;      Printer.GetPrinter(device,driver,post,hdmode);
      if hdmode<>0 then
      begin
        pdmode:=GlobalLock(hdmode);
        if pdmode<>nil then
        begin
          pdmode^.dmPaperSize:=256;
          pdmode^.dmPaperLength:=1016;
          //纸张大小，小的时候走纸少，多的时候走纸多。          pdmode^.dmPaperWidth:=1016;
          pdmode^.dmFields:=pdmode^.dmFields or DM_PAPERSIZE;
          pdmode^.dmFields:=pdmode^.dmFields or DM_PAPERLENGTH ;
          pdmode^.dmFields:=pdmode^.dmFields or DM_PAPERWIDTH;
          ResetDC(printer.Handle,pdmode^);
          GlobalUnlock(hdmode);
        end;
      end;

Answer 4

to:zhushudo 我用爱普生LQ-150K打出来的中文是乱码？怎么办？

Answer 5

to: zhushudo 你的这段程序在使用时会出现 spoolsv.exe进程错误，然后打印机就打不开了！是什么原因

Answer 6

直接用Ehlib中的打印控件怎么控制即打即停呀!请教各位高手了!