Ora ho la necessità di inserire una nuova parte da mandare in stampa sul retro del foglio e di salvare il tutto nel file pdf.
Vi posto il codice:
Codice: Seleziona tutto
'MANDA IN STAMPA LA FATTURA-----------------------------------------------------------------------------------------------------------------------------------------------------
Sub Stampa() ' solo la prima pagina
Dim Param(1) As New com.sun.star.beans.PropertyValue
Param(0).Name = "CopyCount"
Param(0).Value = 1
Param(1).Name = "Pages"
Param(1).Value = "1"
ThisComponent.Print( Param() )
End sub
Function LastRowNumberinColumn(oSheet, numcol)
oCol = oSheet.getColumns().getByIndex(numcol)
rd = oCol.createReplaceDescriptor
rd.searchRegularExpression = true
rd.setSearchString(".")
find = oCol.FindAll(rd)
aray = Split(find.AbsoluteName,"$")
LastRowNumberinColumn = val(aray(ubound(Aray)))
End Function
Codice: Seleziona tutto
'SALVA IN .PDF COL NOME COSTITUITO DAL NUMERO FATTURA E NOME UTENTE------------------------------------------------------------------------------------------------------------
Sub EsportaSelezione_in_PDF
Dim mFilterData(0) As New com.sun.star.beans.PropertyValue
oDoc = ThisComponent
Sheet = oDoc.getCurrentController.ActiveSheet
aSel = oDoc.getCurrentSelection.RangeAddress
cellnome = Sheet.getCellRangeByName("G3").string ' <<< cella da dove prendere il NUMERO
num = Format(Sheet.GetCellRangeByName("G3").value,"000")
cellnum = Sheet.getCellRangeByName("C7").string ' cella da dove prendere il nome
fname = "file:///D:/Dropbox/STUDIO/Fatture 2018/" & cellnome & " " & cellnum & ".PDF" ' <<< nome fattura
mFilterData(0).Name = "A1:O46" 'area esportata in pdf
mFilterData(0).Value = Sheet.getCellRangeByPosition(aSel.StartColumn, aSel.StartRow, aSel.EndColumn, aSel.EndRow)