報表指定打印機(jī),如何在VBA寫入打印機(jī)名稱

yanwei82123300

各位老師,請問在窗體進(jìn)行打印報表時候,如何使用VBA代碼指定打印機(jī)名稱進(jìn)行打印,EXCEL中有一段代碼是指定打印機(jī)名稱進(jìn)行直接打印
EXCEL VBA
ActiveWindow.SelectedSheets.PrintOut Copies:=IntCopy, Collate:=True, ActivePrinter:="你需要指定的打印機(jī)"
Access VBA如何寫呢?請看看,謝謝

yanwei82123300

公司網(wǎng)絡(luò)打印機(jī)有12個,每次打印預(yù)覽后進(jìn)行選擇,太麻煩了,想在窗體打印命令按鈕里面將指定的打印機(jī)名稱寫入,,然后進(jìn)行直接打印.不知可不可以,謝謝

gaofei186

你把某一個要用的打印機(jī)設(shè)定位默認(rèn)打印機(jī)，就可以了

yanwei82123300

gaofei186 發(fā)表于 2023-2-14 16:37
你把某一個要用的打印機(jī)設(shè)定位默認(rèn)打印機(jī)，就可以了

gaofei186老師,我想使用VBA在不修改默認(rèn)打印機(jī)的基礎(chǔ)上進(jìn)行打印,,請問如何做到呢?

huanghyd

您可以使用 VBA 代碼來指定打印機(jī)名稱并直接打印。
以下是一個示例代碼，假設(shè)您有一個名為 "cmdPrint" 的打印命令按鈕和一個名為 "cboPrinter" 的下拉列表框，其中列出了您要使用的所有打印機(jī)的名稱。請根據(jù)您的需要進(jìn)行修改。
在這個示例代碼中，您需要將 "YourReportName" 替換為您要打印的報表名稱。
當(dāng)用戶單擊 "cmdPrint" 按鈕時，代碼將從下拉列表框 "cboPrinter" 中獲取選擇的打印機(jī)名稱。如果用戶沒有選擇打印機(jī)，則會彈出一個消息框提示用戶選擇打印機(jī)，并退出過程。然后，代碼將打開報表，設(shè)置所選打印機(jī)，打印整個報表，關(guān)閉報表并結(jié)束過程。
請注意，打印機(jī)名稱必須與 Windows 操作系統(tǒng)中列出的完全相同。如果打印機(jī)名稱不正確，代碼將無法打印。

Private Sub cmdPrint_Click()
    Dim selectedPrinter As String
    selectedPrinter = Me.cboPrinter.Value
   
    ' 檢查是否已選擇打印機(jī)
    If selectedPrinter = "" Then
        MsgBox "Please select a printer."
        Exit Sub
    End If
   
    ' 為報表設(shè)置打印機(jī)
    DoCmd.OpenReport "YourReportName", acViewNormal
    Reports("YourReportName").Printer = selectedPrinter
   
    ' 打印報告
    DoCmd.PrintOut acPrintAll
   
    ' 關(guān)閉報告
    DoCmd.Close acReport, "YourReportName"
End Sub

yanwei82123300

huanghyd 發(fā)表于 2023-2-15 14:09
您可以使用 VBA 代碼來指定打印機(jī)名稱并直接打印。
以下是一個示例代碼，假設(shè)您有一個名為 "cmdPrint" 的 ...

huanghyd老師謝謝您的幫助,