指定打印机代码如何完善

pq318

请教高手，下面程序的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

只是想做的完美点，呵呵

pq318

其实只要在第一次打印的时候选定打印机以后就可以了，但是始终是个隐患啊，

pq318

呵呵，谢谢各位高手的意见了，是要为每个打印界面设置代码，默认打印机都是A4纸张的

roych

(⊙v⊙)嗯，标签打印的话，是可以在接口程序软件（例如，LabelView）里设置的。

sxb2007

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

aslxt

如果打印到常用纸张上，就用默认打印机呗！
我也想知道如何打印到指定的打印机、纸盒、纸张的方法，听高手说.

roych

用默认打印机不可以吗？要是那样，是不是要为每台电脑都写一段不一样的前台代码？

pq318

是可以，关键是我的数据库放在服务器上，而用户是分散的，

hjb016

这个我也不是很了解,帮你顶一下.
好像是可以通过报表直接指定打印机的.