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.
Certamente.
Sto cercando di automatizzare un modello di fattura (che poi se qualcuno
vuole posso mettere a disposizione)
Si grazie! Queste cose interessano sempre...
e vorrei fare in modo che premendo
un pulsante "Salva" prenda automaticamente come nome il numero della
fattura e il nome del cliente che sono contenuti in 2 celle diverse.
Suppongo che tu voglia salvarlo in pdf...
Ti ho raffazzonato un po' di codice che dovresti poter modificare
facilmente alla tua bisogna.
Purtroppo stampa l'intero documento... che non credo ti piaccia... ma al
momento non so come dirgli di salvare solo il foglio (o il range)
Ricordo vagamente un esempio... ma al momento non lo trovo.
Spero qualcuno ce lo dica....
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
sUrl= "file:///C:/" + "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
Provala...
Se poi spieghi meglio "cosa" devi salvare (range o sheet) e in quale
formato...
ciao
bart
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
