你能在高档打印机上打印一行中文，但不走纸吗？小妹谢了(200分)

你能在高档打印机上打印一行中文，但不走纸吗？小妹谢了

首次在大富翁上看到女士，而且问题比较钻，
什麽意思呀，是不说大了一行纸停留在打印机里不动呀

一般激光或喷墨好象很难让他只打一行且不走纸，
在针打里，可以用控制码，
代替的方法是自定义纸的大小。

欢迎女士加入。
用控制码是一个办法，希望你看打印机带的文档。

不知道怎么高档？要是激光打印机，要输出一页的内容才打呢。
针打也麻烦，象lq1600不换行还不开始打，把内容放缓冲区

直接把把打印机端口打开，写文字和控制符对一般的打印机是可以的，但是本人浅陋，
没有用过“高级”的打印机，所以不知道对“高级”的打印机这个方法行不行。

从别人那里抄的:
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.

谢谢各位，但是你们的方法不能在喷墨打印机上打中文。

delphi美少女:如果你还要继续讨论请定期提前你的帖子，如果不想继续讨论请结束帖子。

这种方法打中文要求打印机有硬字库。

呵呵，不知道打印机不走纸还打什么。
真是搞不懂。

我也想知道这个问题如何解决，我的Panasonic KX-P1121打印机用上面的代码也不能
打汉字。
请问怎样发控制码

yifawul先生的问题我也存在,我也在关注，斑竹 是不是能出来摆平！

激光打印机应该不行吧

看在“小妹谢了”四字上，我想你很久；得以下结果；
begin

if (缓冲区 not in [打印机]) then
我可以不走纸打印一行中文；
//高档打印机有缓冲区吗？有；
//所以不能不走纸;
end;


你为什么要这样打印，能详细一点吗？

多人接受答案了。