关于两台打印机同时工作的问题 帮帮忙 已是我的所有身家 ( 积分: 67 )

有一个小程序需要完成这样一个功能
一台机器上同时接两台打印机(一台lpt1 另一台com1)
当点击打印按钮时 将一部分数据送到接lpt1的打印机
另一部分数据送到接com1的打印
我是用report machine做报表的
请问该怎么办?

有一个小程序需要完成这样一个功能
一台机器上同时接两台打印机(一台lpt1 另一台com1)
当点击打印按钮时 将一部分数据送到接lpt1的打印机
另一部分数据送到接com1的打印
我是用report machine做报表的
请问该怎么办?

晕，要同时分成两部分到不同端口

兄弟,我只是要将不同的数据传到不同的打印机上
主要问题是怎么传到非默认的打印机上

用这个函数三
EnumPrinters
他可以枚举本地的打印机，及网络打印机。。等
在网上搜搜 EnumPrinters 函数的用法,还有源代码啦

to lqcros
打印机我能找到
我主要是要把数据传到指定的非默认的打印机

你去查一查函数，应该有哪个三

这个函数怎么样
OpenPrinter 打开指定的打印机，并获取打印机的句柄
. API之打印函数
AbortDoc 取消一份文档的打印
AbortPrinter 删除与一台打印机关联在一起的缓冲文件
AddForm 为打印机的表单列表添加一个新表单
AddJob 用于获取一个有效的路径名，以便用它为作业创建一个后台打印文件。它也会为作业分配一个作业编号
AddMonitor 为系统添加一个打印机监视器
AddPort 启动"添加端口"对话框，允许用户在系统可用端口列表中加入一个新端口
AddPrinter 在系统中添加一台新打印机
AddPrinterConnection 连接指定的打印机
AddPrinterDriver 为指定的系统添加一个打印驱动程序
AddPrintProcessor 为指定的系统添加一个打印处理器
AddPrintProvidor 为系统添加一个打印供应商
AdvancedDocumentProperties 启动打印机文档设置对话框
ClosePrinter 关闭一个打开的打印机对象
ConfigurePort 针对指定的端口，启动一个端口配置对话框
ConnectToPrinterDlg 启动连接打印机对话框，用它同访问网络的打印机连接
DeleteForm 从打印机可用表单列表中删除一个表单
DeleteMonitor 删除指定的打印监视器
DeletePort 启动"删除端口"对话框，允许用户从当前系统删除一个端口
DeletePrinter 将指定的打印机标志为从系统中删除
DeletePrinterConnection 删除与指定打印机的连接
DeletePrinterDriver 从系统删除一个打印机驱动程序
DeletePrintProcessor 从指定系统删除一个打印处理器
DeletePrintProvidor 从系统中删除一个打印供应商
DeviceCapabilities 利用这个函数可获得与一个设备的能力有关的信息
DocumentProperties 打印机配置控制函数
EndDocAPI 结束一个成功的打印作业
EndDocPrinter 在后台打印程序的级别指定一个文档的结束
EndPage 用这个函数完成一个页面的打印，并准备设备场景，以便打印下一个页
EndPagePrinter 指定一个页在打印作业中的结尾
EnumForms 枚举一台打印机可用的表单
EnumJobs 枚举打印队列中的作业
EnumMonitors 枚举可用的打印监视器
EnumPorts 枚举一个系统可用的端口
EnumPrinterDrivers 枚举指定系统中已安装的打印机驱动程序
EnumPrinters 枚举系统中安装的打印机
EnumPrintProcessorDatatypes 枚举由一个打印处理器支持的数据类型
EnumPrintProcessors 枚举系统中可用的打印处理器
Escape 设备控制函数
FindClosePrinterChangeNotification 关闭用FindFirstPrinterChangeNotification函数获取的一个打印机通告对象
FindFirstPrinterChangeNotification 创建一个新的改变通告对象，以便我们注意打印机状态的各种变化
FindNextPrinterChangeNotification 用这个函数判断触发一次打印机改变通告信号的原因
FreePrinterNotifyInfo 释放由FindNextPrinterChangeNotification函数分配的一个缓冲区
GetForm 取得与指定表单有关的信息
GetJob 获取与指定作业有关的信息
GetPrinter 取得与指定打印机有关的信息
GetPrinterData 为打印机设置注册表配置信息
GetPrinterDriver 针对指定的打印机，获取与打印机驱动程序有关的信息
GetPrinterDriverDirectory 判断指定系统中包含了打印机驱动程序的目录是什么
GetPrintProcessorDirectory 判断指定系统中包含了打印机处理器驱动程序及文件的目录
OpenPrinter 打开指定的打印机，并获取打印机的句柄
PrinterMessageBox 在拥有指定打印作业的系统上显示一个打印机出错消息框
PrinterProperties 启动打印机属性对话框，以便对打印机进行配置
ReadPrinter 从打印机读入数据
ResetDC 重设一个设备场景
ResetPrinter 改变指定打印机的默认数据类型及文档设置
ScheduleJob 提交一个要打印的作业
SetAbortProc 为Windows指定取消函数的地址
SetForm 为指定的表单设置信息
SetJob 对一个打印作业的状态进行控制
SetPrinter 对一台打印机的状态进行控制
SetPrinterData 设置打印机的注册表配置信息
StartDoc 开始一个打印作业
StartDocPrinter 在后台打印的级别启动一个新文档
StartPage 打印一个新页前要先调用这个函数
StartPagePrinter 在打印作业中指定一个新页的开始
WritePrinter 将发送目录中的数据写入打印机

下面例子仅供参考:
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;

RM可以用语句指定选择哪台打印机的。

多人接受答案了。