Office中国论坛/Access中国论坛

标题: 指定打印机代码如何完善 [打印本页]

作者: pq318 时间: 2011-5-20 09:34
标题: 指定打印机代码如何完善
请教高手，下面程序的Application.Printer = "TSC TTP-243E Pro 在 LPT1: "
那个地方设置对吗，由于连接的多台打印机，需要代码指定打印机，谢谢
Private Sub Command8_Click()
On Error GoTo Err_Command8_Click
Dim strWhere As String
  strWhere = Me.form5查询子窗体1.Form.Filter
If strWhere = "" Then
      '没有条件
      strSQL = "SELECT * FROM [form5查询]"
Else
      '有条件
      strSQL = "SELECT * FROM [form5查询] WHERE " & strWhere
End If
Set qdf = CurrentDb.QueryDefs("查询1")
qdf.SQL = strSQL
qdf.Close

Set qdf = Nothing
DoCmd.OpenReport "标签查询2", acViewPreview, , strWhere
DoCmd.PrintOut , , , acHigh, , True
Application.Printer = "TSC TTP-243E Pro 在 LPT1: "

DoCmd.PrintOut "标签查询2"
Exit_Command8_Click:
Exit Sub

Err_Command8_Click:
MsgBox Err.Description
Resume Exit_Command8_Click

End Sub

作者: pq318 时间: 2011-5-20 10:03
版主知道你是高手，指点一下吗，还有其他潜伏的高手们，在此小子感谢了

作者: hjb016 时间: 2011-5-20 10:08
这个我也不是很了解,帮你顶一下.
好像是可以通过报表直接指定打印机的.

作者: pq318 时间: 2011-5-20 10:10
是可以，关键是我的数据库放在服务器上，而用户是分散的，

作者: roych 时间: 2011-5-20 13:40
用默认打印机不可以吗？要是那样，是不是要为每台电脑都写一段不一样的前台代码？

作者: aslxt 时间: 2011-5-20 17:51
如果打印到常用纸张上，就用默认打印机呗！
我也想知道如何打印到指定的打印机、纸盒、纸张的方法，听高手说.

作者: sxb2007 时间: 2011-5-20 18:28
一看你这个就是打印条码或标签，可能通过API 调用当前计算机里按装了那些打印机，在根据打印的不同面选择打印端口你用的是并口 “LPT1“，通过设置，可以指定当前系统要使用的打印名称，及打印端口。

作者: roych 时间: 2011-5-21 02:12
(⊙v⊙)嗯，标签打印的话，是可以在接口程序软件（例如，LabelView）里设置的。

作者: pq318 时间: 2011-5-21 10:35
呵呵，谢谢各位高手的意见了，是要为每个打印界面设置代码，默认打印机都是A4纸张的

作者: pq318 时间: 2011-5-21 10:36
其实只要在第一次打印的时候选定打印机以后就可以了，但是始终是个隐患啊，

作者: pq318 时间: 2011-5-21 10:36
只是想做的完美点，呵呵

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)