Как ускорить печать выбранных ячеек в PDF-файл и сохранить файл XLSM на общем устройстве? - PullRequest
Новая
       23

Как ускорить печать выбранных ячеек в PDF-файл и сохранить файл XLSM на общем устройстве?

2 голосов
/ 19 июня 2019

Я только что написал скрипт MS Macro в VBA, который выбирает ячейки для печати в файл pdf и сохраняет эти файлы pdf и xlsm в на общем устройстве (в данном случае у меня Raspberry Pi). Я, когда я выбираю ячейки A1: X51, это печатает, но это занимает много времени. Я попытался, добавив эти строки кодов: 

Application.Calculation = xlCalculationManual
     Application.ScreenUpdating = False
     Application.DisplayStatusBar = False
     Application.EnableEvents = False
     Application.DisplayAlerts = False
     ActiveSheet.DisplayPageBreaks = False

Но это не помогло. У меня сейчас вопрос: возможно ли ускорить печать выбранных ячеек и сохранение файлов pdf и xlsm на общем устройстве?

Заранее спасибо.

Макрос-код: 

Sub SaveFile()
'
' Macro Macro
'

'
    ActiveSheet.PageSetup.PaperSize = xlPaperLegal
    ActiveSheet.PageSetup.PrintArea = Selection.Address
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="\\raspberrypi\Home_share\File.pdf", _
         Quality:=xlQualityStandard, _
         IncludeDocProperties:=True, _
         IgnorePrintAreas:=False, _
         OpenAfterPublish:=True
    With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints(0)
        .RightMargin = Application.InchesToPoints(0)
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .Orientation = xlLandscape
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = False
    End With
         Application.Calculation = xlCalculationManual
         Application.ScreenUpdating = False
         Application.DisplayStatusBar = False
         Application.EnableEvents = False
         Application.DisplayAlerts = False
         ActiveSheet.DisplayPageBreaks = False

         ActiveWorkbook.SaveAs "\\raspberrypi\Home_share\File-TV.xlsm"
         ActiveWorkbook.Close

End Sub
...