level 7
你是指
你想要选择打印机？
还是想要输出指定内容？
2021年04月07日 04点04分
level 11
对话框，可以取得要使用的打印机、打印份数……等等，这些都会作为公共对话框的属性值返回。
第一步就是记录当前打印机（默认打印机），然后将选择的打印机设为默认打印机printer
第二步就是printer.printer………………
第三步关闭文档
第四步恢复原默认打印机设置
2021年04月07日 08点04分
3
第一步就是记录当前打印机（默认打印机），然后将选择的打印机设为默认打印机printer
第二步就是printer.printer………………
第三步关闭文档
第四步恢复原默认打印机设置
比如说选了对话框中的pdf打印机，想要打印窗体中text1的内容。你的意思是command件事中只要1.显示打印对话框后在对话框里选pdf的打印机2.然后按打印（事先在command点击事件里写好printer.prin…text1这样不行呀。还是采用了系统默认打印机给我直接打印出来了![[小乖]](/static/emoticons/u5c0fu4e56.png)
2021年04月07日 12点04分
@Arriet1 第一步的“然后”你没有看到吗？
2021年04月08日 01点04分
@Arriet1 我怀疑你根本就没有看我上面写的啥
2021年04月08日 01点04分
看了，然后将选择的打印机改为默认打印机，这个我要写代码吗？还是对话框自带这个功能？如果是自带功能的话，我这边没起作用，如果要写代码的话我不知道怎么写![[乖]](/static/emoticons/u4e56.png)
2021年04月08日 05点04分
level 11
可以参考一下:
Public Function SelPrinter(ByVal sPrinterTarget As String) As String
Dim cPNR As Printer
Dim sPrinterNow As String
sPrinterNow = Printer.DeviceName
If sPrinterNow = sPrinterTarget Then GoTo SelEnd:
For Each cPNR In Printers
If cPNR.DeviceName = sPrinterTarget Then
Set Printer = cPNR
GoTo SelEnd:
End If
Next
SelPrinter = Chr(0)
Exit Function
SelEnd:
SelPrinter = sPrinterNow
End Function
2021年04月07日 12点04分
4
Public Function SelPrinter(ByVal sPrinterTarget As String) As String
Dim cPNR As Printer
Dim sPrinterNow As String
sPrinterNow = Printer.DeviceName
If sPrinterNow = sPrinterTarget Then GoTo SelEnd:
For Each cPNR In Printers
If cPNR.DeviceName = sPrinterTarget Then
Set Printer = cPNR
GoTo SelEnd:
End If
Next
SelPrinter = Chr(0)
Exit Function
SelEnd:
SelPrinter = sPrinterNow
End Function