vba - PrintOut 打印多组工作表而不是一组

Question

我们在许多工作簿上都遇到这个问题，我们使用 VBA 选择几张工作表并使用以下行打印它们，Excel 实际上会打印多个组页面，而不是一组多页。

ActiveWindow.SelectedSheets.PrintOut

以下是具有此行为的 Sub 示例:

Private Sub imprimer(iColTypeRapport As Integer)
    Dim cell As range, rangeImpr As range, colonne As range
    Dim debute As Boolean ' True seulement si on a déjà sélectionné une feuille

    On Error GoTo erreur

    application.ScreenUpdating = False

    debute = False
    Set rangeImpr = ActiveSheet.range("impression")
    Set colonne = rangeImpr.Offset(0, iColTypeRapport).EntireColumn

    For Each cell In rangeImpr
        If LCase(Intersect(cell.EntireRow, colonne)) = "o" Then
            If Not debute Then
                Worksheets(cell.Value).Select
                debute = True
            Else
                Worksheets(cell.Value).Select False
            End If
        End If
    Next cell

    ActiveWindow.SelectedSheets.PrintOut

    Worksheets("TableauDeBord").Select
    application.ScreenUpdating = True
    Exit Sub

erreur:
    Call GestionErreur(Err.Number, Err.Description, "modRequete", "ImportData")
End Sub

如果我们使用 Print2PDF 或 Adob​​ePDF 打印，这一点会更加明显，因为它会多次提示输入文件名(在本例中为 3 次)。

如果我在 PrintOut 之前放置断点，则会适本地选择工作表，并且我看不到任何异常/意外的情况。

有什么想法吗？

Answer 1

我见过这个。这可能与不同的打印分辨率等问题有关。如果您搜索“打印工作簿生成多个 pdf”，您会找到一些答案。具体来说，对于 PDF 问题，可以通过对 PDF 执行“另存为”来解决(在 XL 2010 中，我猜是 2007 年)。