Obecnie w swoich dokumentach próbuję wykorzystać makro zapisujące arkusz jako PDF. Makro znalazłem na angielskiej wersji forum i zmodyfikowałem pod siebie. Obecnie wygląda ono tak:
Kod: Zaznacz cały
REM ***** BASIC *****
Sub SaveAs
Dim sFileName1 As String
Dim sFileName2 As String
Dim sFileName3 As String
Dim sBackslash As String
Dim sPath As String
Dim sSaveToURL as string
GOD = Format(Time, "hh-mm-ss")
sPath = "y:\archiwum\"
sFileName1 = thisComponent.getSheets.getByName("Specyfikacja").getCellRangeByName("H7").getString ' Komórka zawsze ma wartość "Słowo\Numer"
sFileName2 = thisComponent.getSheets.getByName("Specyfikacja").getCellRangeByName("C12").getString ' Wartość to data w formacie DD.MM.RRRR
sFileName3 = thisComponent.getSheets.getByName("Specyfikacja").getCellRangeByName("H9").getString ' Wartość do słowo
sBackslash = "\"
sSaveToURL = ConvertToURL(sPath & sFileName2 & sBackslash & sFileName1 & "_" & sFileName3 & "_" & GOD & ".pdf")
thisComponent.storeToUrl(sSaveToURL, Array(MakePropertyValue("FilterName", "calc_pdf_Export")))
End Sub
Function MakePropertyValue(Optional sName As String, Optional sValue) As com.sun.star.beans.PropertyValue
'-------------------------------------------------------------------
' Create and return a new com.sun.star.beans.PropertyValue
'-------------------------------------------------------------------
Dim oPropertyValue As New com.sun.star.beans.PropertyValue
If Not IsMissing(sName) Then
oPropertyValue.Name = sName
EndIf
If Not IsMissing(sValue) Then
oPropertyValue.Value = sValue
EndIf
MakePropertyValue() = oPropertyValue
End Function
Czy jesteście w stanie mi pomóc?