[已解决]求一段调出默认打印机的代码。。。。

bergomi

破机子录制不到，求代码。。。。谢谢

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-7-30 15:19

直接调，我这好像也没有抓到代码，倒是自己改了打印机了才有抓到代码。
Sub Macro1()
'
' Macro1 Macro
' 宏由 bb 录制，时间: 2012/7/30
'

'
    Application.ActivePrinter = "Foxit PDF Printer 在 Ne03:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "Foxit PDF Printer 在 Ne03:", Collate:=True
End Sub

跳转到最佳答案楼层

hwc2ycy

直接调出打印对话框就行了么？

bergomi

hwc2ycy 发表于 2012-7-30 15:06
直接调出打印对话框就行了么？

对对对，破机子录不到宏。。。。

hwc2ycy

直接调，我这好像也没有抓到代码，倒是自己改了打印机了才有抓到代码。
Sub Macro1()
'
' Macro1 Macro
' 宏由 bb 录制，时间: 2012/7/30
'

'
    Application.ActivePrinter = "Foxit PDF Printer 在 Ne03:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "Foxit PDF Printer 在 Ne03:", Collate:=True
End Sub