REM ***** BASIC ***** Sub ExportToPdf(ByVal tmpDir As String) Const pageMargin = 500 Dim document As Object, pageStyles As Object document = ThisComponent cnt = document.Sheets.Count - 1 Dim dict(0 To cnt) As new com.sun.star.beans.PropertyValue pageStyles = document.StyleFamilies.getByName("PageStyles") For i = 0 To cnt Dim sheet As Object, style As Object sheet = document.Sheets(i) style = pageStyles.getByName(sheet.PageStyle) style.ScaleToPagesX = 1 style.printGrid = True style.HeaderOn = False style.FooterOn = False style.IsLandscape = True style.TopMargin = pageMargin style.LeftMargin = pageMargin style.BottomMargin = pageMargin style.RightMargin = pageMargin num = i + 1 fileName = "/fullview_page" + num + ".pdf" url = tmpDir + fileName ExportSheetToPdf document, url, sheet dict(i).Name = sheet.name dict(i).Value = fileName Next On Error Resume Next pathToJson = tmpDir + "/fullview_pages.json" CreateJsonMeta pathToJson, dict, cnt document.storeSelf(Array()) document.close(true) End Sub REM Эспортирует лист oSheet документа oDoc в файл filePath (формат URL или операционной системы). REM Если oSheet не указан (или Nothing), то экспортируются все листы. Sub ExportSheetToPdf(ByVal oDoc As Object, ByVal filePath As String, Optional ByVal oSheet As Object) Dim oSh Dim args(1) as new com.sun.star.beans.PropertyValue Dim aFilterData(1) as new com.sun.star.beans.PropertyValue If IsMissing(oSheet) Then oSheet=Nothing args(0).Name = "FilterName" args(0).Value = "calc_pdf_Export" If Not (oSheet Is Nothing) Then args(1).Name = "FilterData" aFilterData(0).Name="Selection" aFilterData(0).Value=oSheet args(1).Value = aFilterData End If oDoc.StoreToUrl ConvertToUrl(filePath), args End Sub REM Сохраняет наименования листов в json файл Sub CreateJsonMeta(ByVal filePath As String, dict As Object, cnt as Integer) Dim json As Integer Dim fn As String fn = filePath json = FreeFile num = 0 Open fn For Output As json Print #json, "[" For Each d in dict comma = "" If num < cnt Then comma = "," End If item = "{" & """" & Replace(d.Name, """", "\""") & """:""" & d.Value & """" & "}" & comma num = num + 1 Print #json, item Next On Error Resume Next Print #json, "]" Close #json End Sub Sub Main() ExportToPdf "~/1" End Sub