Alle 21:27, mercoledì 4 gennaio 2006, Bart Aimar ha scritto:
Scusa Bart se mi intrometto
volevo aggiungere qualcasa anch' io
così Mirko può scegliere dove salvare
> Mirko Santarelli ha scritto:
> > e' possibile in Calc creare un pulsante che salvi il documento con il
> > nome preso da una determinata cella o da piu' celle.
> REM INIZIO CODICE
> Sub esporta_fattura_in_pdf
> oSheet = ThisComponent.currentcontroller.activesheet
> mycell = oSheet.getCellRangeByName("$a$5")
> 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"
> Print sUrl 'adesso hai un nome completo di path
> ' se voui la path corrente bisogna lavorci un po' sopra
> ' ma è fattibile
> myProps(0).Name="FilterName"
> myProps(0).Value = "writer_pdf_Export"
> thisComponent.storetoUrl(sUrl,myProps())
> end Sub
> REM FINE CODICE
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
Spero di essere stato utile
Ciao Lido
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
