Question

我过去总是在这里找到答案，所以我希望你们中的一位天才可以为我拉一个伎俩。这是情况。几年前我在Excel 2016中创建了一个小应用程序。它已经运行了2年，现在完美无瑕。我不得不说这是我以前的工作（但我仍然在这里做售后服务......）。无论如何，最近他们搬到Office 365然后kaboom！他们无法使用打印创建的报告的功能。错误是

运行时错误1004对象的方法'PrintCommunication' '_Application'失败

请记住，在他们切换到Office 365之前。一切正常。
编辑：我刚刚发现它在公司的某些部分有效，而不是在一部分。例如，它适用于所有省份的员工（我们在加拿大：省份相当于美国的州），除了一个。因此，必须存在与服务器上的参数或类似内容不兼容的内容。它对某人有帮助吗？编辑结束

我在这里和其他网站上看了看。我已经尝试了几乎所有关于“评论出”的线条，比如“打印质量= 600”和其他类似的东西。

以下是代码。错误在行

Application.PrintCommunication = True

"End Sub"之前的4行。我切换.printCommunication = True时的另一行没有错误

Sub imprime_feuille_identification(trois_feuille)
'
    Sheets("IDENTIFICATION").Activate
    ActiveWorkbook.Worksheets("MOYENS_CONTROLE").Cells(9, 16384) = ActiveSheet.Name             'identifie de quelle feuille vient la demande d'impression sert à y revenir ensuite
    ActiveWorkbook.Worksheets("MOYENS_CONTROLE").Cells(10, 16384) = ""                           'va servir à identifier qu'on veut imprimer une seule feuille
    Range("A1:P38").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$P$38"                                              'définition de la zone d'impression
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$2:$2"
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = "$A$1:$P$38"
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = " &9&P de &N   "
        .LeftMargin = Application.InchesToPoints(9.84251968503937E-02)
        .RightMargin = Application.InchesToPoints(9.84251968503937E-02)
        .TopMargin = Application.InchesToPoints(9.84251968503937E-02)
        .BottomMargin = Application.InchesToPoints(9.84251968503937E-02)
        .HeaderMargin = Application.InchesToPoints(0.196850393700787)
        .FooterMargin = Application.InchesToPoints(0.196850393700787)
        .PrintHeadings = False
        .PrintGridlines = False
        '.PrintComments = xlPrintNoComments
        '.PrintComments = False 'xlPrintNoComments
        .PrintQuality = 600                'Tried to comment out this line:  still get the error
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 0
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    Application.PrintCommunication = True     'THE ERROR HAPPENS HERE'

    If trois_feuille <> 1 Then                  'si le sub a été appelé en dehors du sub "imprime trois feuille" alors on fait
        Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")                                 'affiche la page d'impression
    End If    
End Sub

所以任何人，任何好主意和解决方案？如果对问题的解释不明确，请不要犹豫。

非常感谢你。

Answer 1

错误是由行

引起的

.Zoom = False

通过VBA设置缩放属性时，如果要使用缩放方法控制缩放，则必须将.Zoom =整数值设置为10到400之间（例如.Zoom = 25）。该值按Excel转换为百分比（例如，10％至400％），然后用作乘数。

如果您想控制宽和高的页数，请使用属性.FitToPagesWide = some Integer和.FitToPagesTall = some Integer。

如果您使用.FitTo... properties，则.Zoom将由Excel设置为false，而不是VBA代码。以下是MS文档的链接，解释了.Zoom属性的使用。

因此，您需要删除或注释掉.Zoom = False行或两行

.FitToPagesWide = 1
.FitToPagesTall = 0

Excel VBA Application.PrintCommunication不再使用网络打印机

1 个答案: