怎样通过编程的方式实现‘即打即停’？ ( 积分: 100 )

在实际使用过程中，由于每一次打印的长度不同，所以无法确定每一次使用的高度，打印出来的结果便很不方便且造成纸张的极大浪费，客户很多使用连续纸，且能实现即打即停（即打印结束后不用直接定位到下一页纸，而直接停在打印后的后面几行，以利于撕下单据即可）这功能，那么定能给客户极大的方便并节省办公成本。应用场景是工厂类型，单据数据量大，使用的是针式打印机和连续穿孔纸。每次操作员都要手动回转纸张，造成很大不便且单据面观效果不好。打印任务由自己编程实现，没有使用构件，谁能告诉在程序中怎样实现这样的任务？大致的思路？

在实际使用过程中，由于每一次打印的长度不同，所以无法确定每一次使用的高度，打印出来的结果便很不方便且造成纸张的极大浪费，客户很多使用连续纸，且能实现即打即停（即打印结束后不用直接定位到下一页纸，而直接停在打印后的后面几行，以利于撕下单据即可）这功能，那么定能给客户极大的方便并节省办公成本。应用场景是工厂类型，单据数据量大，使用的是针式打印机和连续穿孔纸。每次操作员都要手动回转纸张，造成很大不便且单据面观效果不好。打印任务由自己编程实现，没有使用构件，谁能告诉在程序中怎样实现这样的任务？大致的思路？

用winapi 的方法：
添好一行到STRING 中；printstring(s:string);
再用prnlf(no:cardinal);
换行（NO：换行数）；
直到所有行打完
//----------------------------------回车、换行-------
procedure prnlf(no:cardinal);
var i:cardinal;
begin
for i:=1 to nodo
begin
printstring(chr(13));
printstring(chr(10));
end;
end;
//----------------------------------
procedure printstring(s:string);
type
tdocinfor=record
pdocnamechar;
poutputfilechar;
pdatatypechar;
end;

var handle:Thandle;
NWORD;
do
cInfo1:TDOCINFOR;
prtname:string;
begin
prtname:= printer.Printers[printer.printerIndex];
if not openPrinter(pchar(prtname),handle,nil) then
begin
showmessage('打印机错误：'+INTTOstr(getlasterror));
exit;
end;
withdo
cinfo1do
begin
pdocname:=pchar('testdo
c');
poutputfile:=nil;
pdatatype:='RAW';
end;
startdocprinter(handle,1, @docinfo1);
startpageprinter(handle);
writeprinter(handle,pchar(s),length(s),N);
endpageprinter(handle);
enddocprinter(handle);

closeprinter(handle);
end;

大家多提提看法，我如果最后实现之后，一定会整理出最好结果与大家分享。

转个帖子，希望对你有用
http://www.delphibbs.com/delphibbs/dispq.asp?LID=1399170
sample usage
var Myprinter : TRawPrinter;
oldprinter : TPrinter;
begin
MyPrinter:=TRawPrinter.Create;
oldprinter:=setprinter(MyPrinter);
try
if Printdialog1.execute then
begin
myprinter.startraw;
myprinter.write('khsdhskhkshdksd');
myprinter.writeln;
myprinter.endraw;
end
finally
setprinter(oldprinyter);
myprinter.free;
end;
end;

{Here is the code for the raw printer object.}
unit Rawprinter;
interface
uses printers,windows;
type TRawprinter =class(TPrinter)
public
dc2 : HDC;
procedure startraw;
procedure endraw;
procedure write(const s : string);
procedure writeln;
end;

implementation
uses sysutils,forms;
function AbortProc(Prn: HDC;
Error: Integer):
Bool;
stdcall;
begin
Application.ProcessMessages;
Result := not Printer.Aborted;
end;

type
TPrinterDevice = class
Driver, Device, Port: String;
constructor Create(ADriver, ADevice, APort: PChar);
function IsEqual(ADriver, ADevice, APort: PChar)
:Boolean;
end;

constructor TPrinterDevice.Create(
ADriver, ADevice, APort: PChar);
begin
inherited Create;
Driver := ADriver;
Device := ADevice;
Port := APort;
end;

function TPrinterDevice.IsEqual(
ADriver, ADevice, APort: PChar): Boolean;
begin
Result := (Device = ADevice) and (Port = APort);
end;

procedure TRawprinter.startraw;
var
CTitle: array[0..31] of Char;
CMode : Array[0..4] of char;
do
cInfo: TDocInfo;
r : integer;
begin
StrPLCopy(CTitle, Title, SizeOf(CTitle) - 1);
StrPCopy(CMode, 'RAW');
FillChar(DocInfo, SizeOf(DocInfo), 0);
withdo
cInfodo
begin
cbSize := SizeOf(DocInfo);
lpszDocName := CTitle;
lpszOutput := nil;
lpszDatatype :=CMode;
end;
with TPrinterDevice(Printers.Objects[PrinterIndex])do
begin
DC2 := CreateDC(PChar(Driver),
PChar(Device), PChar(Port), nil);
end;
SetAbortProc(dc2, AbortProc);
r:=StartDoc(dc2,do
cInfo);
end;

procedure TRawprinter.endraw;
var r : integer;
begin
r:=windows.enddoc(dc2);
end;

type passrec = packed record
l : word;
s : Array[0..255] of char;
end;

var pass : Passrec;
procedure TRawprinter.write(const s : string);
begin
pass.l:=length(s);
strpcopy(pass.s,s);
escape(dc2,PASSTHROUGH,0,@pass,nil);
end;

procedure TRawprinter.writeln;
begin
pass.l:=2;
strpcopy(pass.s,#13#10);
escape(dc2,PASSTHROUGH,0,@pass,nil);
end;

end.

再顶

那肯定是要计算出每次打印内容的尺寸，然后在打印时设定打印纸张尽寸，才能得到即打即停的效果，假设如果设定的是A4纸张，那肯定不管你满不满，都要走完A4那么长的纸才能停得下来的哦

http://www.delphibbs.com/keylife/iblog_show.asp?xid=432
作者?: lgxyy
标题?: 打印时改变纸张大小

如果直接利用 Tprint 进行打印，实现 即打即停， 真的简单的不得了，
如果你用什么报表工具等等打印，实在上无能为力。
改变纸张大小， 并非真正意义上的 即打即停， 只能够自己写打印代码实现。

TO:xuxiaohan
<<如果直接利用 Tprint 进行打印，实现 即打即停， 真的简单的不得了，
<<如果你用什么报表工具等等打印，实在上无能为力。
<<改变纸张大小， 并非真正意义上的 即打即停， 只能够自己写打印代码实现。
那应该怎样“自己写打印代码实现”？ 能否贴上来相关代码？