关于打印机设置、 打印 纸设置的问题。 ( 积分: 200 )

D

dzl19

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-14

• #1

我自己做了两个单据打印，使用的纸张不一样大小，都是自定义的，分别是2540*2798和2540*1397，分别发送两个打印机，同一个客户机操作，现在想实现：对单据1，设置打印机名称和使用的纸张，并保存在一个文件里，对单据2也一样。在打印时候，分别根据不同的打印单据发送不同的打印机器。
请高手做个帮助！

 

D

dzl19

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-14

• #2

我自己做了两个单据打印，使用的纸张不一样大小，都是自定义的，分别是2540*2798和2540*1397，分别发送两个打印机，同一个客户机操作，现在想实现：对单据1，设置打印机名称和使用的纸张，并保存在一个文件里，对单据2也一样。在打印时候，分别根据不同的打印单据发送不同的打印机器。
请高手做个帮助！

 

G

ggabcdef

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-27

• #3

建议你在需要的时候选择设置默认打印机好了。
详细实现细节见 http://www.delphibbs.com/keylife/iblog_show.asp?xid=6194

 

D

dzl19

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-29

• #4

用内嵌汇编调用中断INT 17H,读取打印机的状态字节加以分析,即可得到其当前状态.
例：输入参数：如果有3个打印端口LPT1、LPT2、LPT3，那么输入参数LPTPort就是1、2、3。
function TForm1.TestPrinterStatus(LPTPort : word):byte;
var status : byte;
CheckLPT : word;
begin
status := 0;
if (LPTPort >=1) and (LPTPort <=3) then
begin
CheckLPT := LPTPort -1;
asm
mov dx,CheckLPT;
mov al,0;
mov ah,2;
int 17H;
mov &amp;status,ah;
end;
end;
result := status;
end;
返回值有以下几种：
01H：超时
08H：I/O错误
10H：打印机未联机
20H：打印机缺纸
80H：打印机空闲。
//问题,怎样调用呢?可以判断网络打印机吗?

 

D

dzl19

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-29

• #5

用delphi7自带的quickreport为报表控件,在打印时动态指定打印机uses printers;
var MyPrinter1,MyPrinter2: integer;
//设为单元内的全局变量
procedure TestPrinter;
var i : integer;
pstr : string;
begin
MyPrinter1 := -1;
MyPrinter2 := -1;
for i := 0 to printer.Printers.Count -1do
begin
pstr := printer.Printers.Strings;//系统安装的打印机名
if pstr = 'MyPrinter1' then
MyPrinter1 := i;//设定打印机;初值为-1表示默认打印机
if pstr = 'MyPrinter2' then
MyPrinter2 := i;//设定打印机;初值为-1表示默认打印机
end;
end;

使用时：
begin
TestPrinter;
Quickrep1.PrinterSettings.PrinterIndex := MyPrinter1;//指定打印机1输出
quickrep1.print;
Quickrep1.PrinterSettings.PrinterIndex := MyPrinter2;//指定打印机2输出
quickrep2.print;
end;

 

D

dzl19

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-29

• #6

如果是用以下,怎样动态设置打印呢?
Printer.begin
Doc;
Printer.Canvas.Font.Size :=10;
Printer.Canvas.Font.Name :='宋体';
Printer.Canvas.TextOut(10,10,'测试打印');
Printer.EndDoc;

 

D

dzl19

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-29

• #7

谁有做过,把自己的打印先 预览到界面,然后再把打印到打印机呢?或直接打印到打印机,预览到界面和打印界面要一样的.

 

L

Lucker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-08

• #8

自由界面和报表的完美解决方案！
http://www.anylib.com

 

S

sandal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-22

• #9

兄弟，我最近兩個月就是這被這樣的東東搞暈了。
如果OS是98就好辦，如果 OS 是2000或XP，就要在客戶端做設置。
否則，你搞定了，我叫你老師。

 

A

adlyl031

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-07

• #10

好,帮顶


--------签名档---------------------------

比肩国内顶尖源码下载站点 -> 源码我爱你

http://www.source520.com
http://www.source520.net
80G源码电子书免费免注册下载,大量精辟技术文档库随时更新
******************************************************************
附:为了站点持续发展,现有本站近年来收藏的大量大型商业源码低价出售,
详情请进入以下链接查看:
http://www.source520.com/building_delphi.htm

浏览商业代码请从如下URL进入查看实物:
1.商业源码库1: ftp://source520see3:browse@61.152.199.245/
2.商业源码库2: ftp://source520see2:browse@61.152.199.245/