Scusate per il ritardo della risposta ma ho avuto qualche
problema.
In realta' non pensavo ad una esportazione in pdf ma al
salvataggio del file vero e proprio o meglio ancora del
salvataggio di solo una parte del file (un foglio o una
tabella come le chiama OOo) infatti ci sono altri fogli
che non mi interessa salvare in quanto appesantirebbero e
basta.
In ogni caso anche l'esportazione in pdf e' molto
interessante.
Lunedi appena rientro in ufficio faccio un po' di
tentativi e magari se qualcun altro nel frattempo lancia
qualche idea per salvare solo un foglio...
Per il momento grazie a tutti.
MIRKO
On Fri, 06 Jan 2006 03:32:18 +0100
Bart Aimar <[EMAIL PROTECTED]> wrote:
Bernardini Lido ha scritto:
Scusa Bart se mi intrometto
volevo aggiungere qualcasa anch' io
così Mirko può scegliere dove salvare
Mirko deve aver fatto il ponte... e quindi non sappianmo
ancora quale parte della Workbook vuole salvare e nemmeno
se il pdf gli piace....
... cut...
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"
Molto interessante... anche se di solito le fatture
dell'anno - di solito -le infili sempre nello stesso
posto.
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
A Mirko non lo so... a me certamente sì...
Indipendentemente da Mirko sarebbe utile capire come
"esportare" solo la sheet o solo la selezione...
Spero qualcunaltro si "intrometta"... :-)
Ciao
bart
---------------------------------------------------------------------
To unsubscribe, e-mail:
[EMAIL PROTECTED]
For additional commands, e-mail:
[EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
