VBA彩色打印实现问题：含工作表打印宏与参数设置需求

嘿，我懂你现在的问题——你已经把打印指定页、选择打印机、输入份数这些功能搞定了，但彩色打印的设置卡在了打印机属性里，宏录制的时候抓不到这个选项对吧？别慌，我给你两个靠谱的解决方案：

方法一：用Excel内置属性快速开启彩色打印 #

大部分主流打印机支持通过Excel的PageSetup对象直接控制彩色/黑白打印，这是最简单的方案。你只需要在现有宏里添加几行代码：

' 单独设置Sheet2和Sheet3为彩色打印
Sheets("Sheet2").PageSetup.BlackAndWhite = False
Sheets("Sheet3").PageSetup.BlackAndWhite = False

如果之后需要恢复默认的黑白设置，可以在打印完成后加一行：

' 恢复原始的黑白打印设置（可选）
Sheets("Sheet2").PageSetup.BlackAndWhite = True
Sheets("Sheet3").PageSetup.BlackAndWhite = True

这个方法的优势是简单无依赖，只要你的打印机驱动支持Excel的这个属性，就能直接生效。

方法二：调用打印机属性对话框+强制彩色设置 #

如果你的打印机不支持Excel内置的彩色控制，那我们可以通过Windows API调用打印机属性对话框，让用户手动确认彩色设置，同时保留你已有的打印份数、指定页功能。下面是整合后的完整代码：

Option Explicit

' 适配32/64位Office的API声明
#If VBA7 Then
    Declare PtrSafe Function PrintDlg Lib "comdlg32.dll" Alias "PrintDlgA" (pPrintDlg As PRINTDLG_TYPE) As Long
#Else
    Declare Function PrintDlg Lib "comdlg32.dll" Alias "PrintDlgA" (pPrintDlg As PRINTDLG_TYPE) As Long
#End If

' 打印对话框的参数结构
Type PRINTDLG_TYPE
    lStructSize As Long
    hwndOwner As Long
    hDevMode As Long
    hDevNames As Long
    hDC As Long
    Flags As Long
    nFromPage As Integer
    nToPage As Integer
    nMinPage As Integer
    nMaxPage As Integer
    nCopies As Integer
    hInstance As Long
    lCustData As Long
    lpfnPrintHook As Long
    lpfnSetupHook As Long
    lpPrintTemplateName As String
    lpSetupTemplateName As String
    hPrintTemplate As Long
    hSetupTemplate As Long
End Type

Sub PrintSheetsWithColor()
    Dim pd As PRINTDLG_TYPE
    Dim numCopies As Integer
    Dim originalBW_Sheet2 As Boolean, originalBW_Sheet3 As Boolean
    
    ' 获取用户输入的打印份数
    numCopies = InputBox("请输入打印份数：", "打印份数设置", 1)
    If numCopies <= 0 Then Exit Sub ' 非法输入直接退出
    
    ' 保存两个工作表的原始黑白设置，打印后恢复
    originalBW_Sheet2 = Sheets("Sheet2").PageSetup.BlackAndWhite
    originalBW_Sheet3 = Sheets("Sheet3").PageSetup.BlackAndWhite
    
    ' 强制设置目标工作表为彩色打印
    Sheets("Sheet2").PageSetup.BlackAndWhite = False
    Sheets("Sheet3").PageSetup.BlackAndWhite = False
    
    ' 初始化打印对话框参数
    pd.lStructSize = Len(pd)
    pd.Flags = &H40 ' PD_RETURNDC：获取选中打印机的设备上下文
    pd.nCopies = numCopies
    pd.nFromPage = 2 ' 对应工作簿第2页
    pd.nToPage = 3   ' 对应工作簿第3页
    
    ' 弹出打印机选择+属性对话框
    If PrintDlg(pd) = 1 Then
        ' 执行打印：指定页码、份数、选中的打印机
        ActiveWorkbook.PrintOut From:=2, To:=3, Copies:=pd.nCopies, ActivePrinter:=pd.hDC
    End If
    
    ' 恢复工作表的原始黑白设置，避免影响后续操作
    Sheets("Sheet2").PageSetup.BlackAndWhite = originalBW_Sheet2
    Sheets("Sheet3").PageSetup.BlackAndWhite = originalBW_Sheet3
End Sub

关键说明 #

1. 优先尝试方法一，代码量少且稳定；
2. 方法二中的API调用会弹出系统原生的打印机属性对话框，用户可以在里面手动确认彩色选项，宏会基于这个设置完成打印；
3. 代码里加入了“原始设置备份-恢复”的逻辑，避免修改工作表的默认打印配置。

内容的提问来源于stack exchange，提问作者PWJP