Bernardini Lido ha scritto:
Potresti registrare una macro...
NON funziona... e non mi chiedere perché...
Il registratore serve giusto per qualche cosetta... ma quando hai
bisogno di qualcosa di diverso non funziona mai.
In genere non registra delle cose... e in questo caso (novità) ha
generato un codice che da un errore.
...zot...
Questa procedura usa i dispatches, cosa non proprio consigliata da Paolo
Mantovani in un altro thread, ma non conosco un modo più semplice per
farlo.
Paolo Mantovani ha i suoi buoni motivi per sconsigliarlo...
Ma sono certo che non ci ha dimenticato...
Nel nostro caso comunque sarebbe semplice se potessimo definire il range
da stampare come l'unica area di stampa del documento... ma in genere in
una workbook di fatturazione c'è anche altra roba... (almeno nel mio sì)
Quindi il quesito è ancora aperto!!
Ma tornando al codice già defito... ti funzionava?
Io mi sono accorto di un errore... eppure l'avevo testato... bo!?
Comunque l'ho sistemato e lo metto qui in coda con le tue integrazioni.
ciao
bart
REM INIZIO CODICE
Sub esporta_fattura_in_pdf
oSheet = ThisComponent.currentcontroller.activesheet
mycell = oSheet.getCellRangeByName("$a$5") 'ovviamente scrivi
'l'indirizzo della tua cella
oNumero = mycell.string
print oNumero 'adesso hai una parte del nome
' potrebbe essere il numero della fattura
' allo stesso modo puoi prelevare il nome del cliente
' adesso aggiungamo un po' di roba
oAnno = "2006"
Dim myProps(0) as New com.sun.star.beans.PropertyValue
'Dim sCartella As String
sCartella = Folder()
'Questa variabile chiama la funzione Folder()
'la quale apre una finestra nella quale puoi
'scegliere la cartella dove vuoi salvare.
'La riga "sUrl= "file:/// ...." può essere modificata
'così
sUrl= sCartella + "Fattura_" + oNumero + "-" + oAnno + ".pdf"
' oppure come si preferisce...
Print sUrl 'adesso hai anche la path corrente come prima proposta
myProps(0).Name="FilterName"
myProps(0).Value = "Calc_pdf_Export" ' l'errore era qui...
'ma come faceva a funzionare?
thisComponent.storetoUrl(sUrl,myProps())
End Sub
Function Folder()
Dim oCartella as Object
Dim iAccetta as Integer
oCartella = CreateUnoService("com.sun.star.ui.dialogs.FolderPicker")
iAccetta = oCartella.Execute()
If iAccetta = 1 Then Folder() = oCartella.GetDirectory()
End Function
REM FINE CODICE
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
