4

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

ActiveWindow.SelectedSheets.PrintOut

Sub这是具有此行为的 a 示例：

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 之前放置了一个断点，则适当地选择了工作表，并且我没有看到任何异常/意外。

任何想法 ？

4

1 回答 1

1

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

于 2013-07-30T15:13:49.273 回答