L LiChaoHui Unregistered / Unconfirmed GUEST, unregistred user! 2003-02-19 #1 求 PB中的 PrintSend 函数的 Delphi实现
L LiChaoHui Unregistered / Unconfirmed GUEST, unregistred user! 2003-02-19 #3 问题很简单，100分太少吗？ 如果太少，告诉我，可以再加
L LiChaoHui Unregistered / Unconfirmed GUEST, unregistred user! 2003-02-19 #4 还是我说出来吧！ function PrintSend(Prn: TPrinter; S: String): Integer; begin Prn.BeginDoc; Result := Escape(Prn.Handle, PASSTHROUGH{ = 19}, Length(S), PChar(S), nil); Prn.EndDoc; if Result = SP_ERROR then Result := 0 else Resule := 1; end;
还是我说出来吧！ function PrintSend(Prn: TPrinter; S: String): Integer; begin Prn.BeginDoc; Result := Escape(Prn.Handle, PASSTHROUGH{ = 19}, Length(S), PChar(S), nil); Prn.EndDoc; if Result = SP_ERROR then Result := 0 else Resule := 1; end;
