>Da: [email protected]
>[email protected] ha scritto:
cut
>> Vorrei fare in modo
... pulsante
cut
>> grazie in anticipo per l'aiuto
>> Angelo
>>
>per
inserire un pulsate iniziare con:
cut
>Nelle proprieta' del Campo_controllo
scegli Eventi
>imposta la macro cut
>sub ApriStampa
>rem
----------------------------------------------------------------------
>rem
define variables
>dim document as object
>dim dispatcher as object
>rem
----------------------------------------------------------------------
>rem get
access to the document
>document = ThisComponent.CurrentController.Frame
>dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
>dim
lunghezza as integer
>dim nome_file_completo, parametro as string
>
>rem
----------------------------------------------------------------------
>dim
args1(1) as new com.sun.star.beans.PropertyValue
>args1(0).Name = "Name"
>args1
(0).Value = "d:\modelli\ooo\file_da_stampare.ods"
>args1(1).Name = "Filter"
>args1(1).Value = "Text (encoded)"
>
>nome_file_completo = "soffice.exe -p d:
\modelli\ooo\file_da_stampare.ods"
>
>rem il valore 15 sono il numero di
caratteri prima del nome file
>lunghezza = Len(args1(0).value) - 15
>parametro
= Right(args1(0).value, lunghezza)
>file_completo = ConvertToUrl
(nome_file_completo)
>If FileExists(args1(0).value) Then
>rem MsgBox serve solo
se ci sono dei problemi
>rem x vedere le variabili che imposti e poi lo
commenti con rem
> MsgBox (nome_file_completo + Chr(13) + parametro)
> shell
(nome_file_completo,6,parametro,FALSE)
>else
> MsgBox ("Crea prima il file da
stampare" + Chr(13) +
>nome_file_completo + Chr(13) + parametro)
>End If
>
>end sub
Ok perfetta grazie - Volevo utilizzarla per fare anche altro ma lì ho
trovato un problemino:
L'ho modificata in quest'altro modo per ottenere che
alla pressione del pulsante si apra un altro foglio di calc da compilare; dato
che ha come origine un modello ho utilizzato l'avvio -n [nomefile] come
descritto in guida, al posto dell'avvio soffice.exe -p che è solo per la
stampa, mantenenendo inatlterato il resto ( a parte la destinazione):
sub
apriAllegato2Successivo
rem
----------------------------------------------------------------------
rem
define variables
dim document as object
dim dispatcher as object
rem
----------------------------------------------------------------------
rem get
access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim
lunghezza as integer
dim nome_file_completo, parametro as string
rem
----------------------------------------------------------------------
dim args1
(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Name"
args1(0).
Value = "E:\CONFORMITA\AllegatoGASobbligatorioDichdiConf2.ots"
args1(1).Name =
"Filter"
args1(1).Value = "Text (encoded)"
nome_file_completo = "soffice.exe -
n E:\CONFORMITA\AllegatoGASobbligatorioDichdiConf2.ots"
rem il valore 14 sono
il numero di caratteri prima del nome file
lunghezza = Len(args1(0).value) - 14
parametro = Right(args1(0).value, lunghezza)
file_completo = ConvertToUrl
(nome_file_completo)
If FileExists(args1(0).value) Then
rem MsgBox serve solo
se ci sono dei problemi
rem x vedere le variabili che imposti e poi lo commenti
con rem
MsgBox (nome_file_completo + Chr(13) + parametro)
shell
(nome_file_completo,6,parametro,FALSE)
else
MsgBox ("Controlla indirizzo
puntamento macro e spazi vuoti nel nome file!" + Chr(13) + nome_file_completo +
Chr(13) + parametro)
End If
end sub
Ok, la macro funziona anche troppo nel
senso che apre l'allegato e poi se lo và a cercare anche in C:
\Programmi|OpenOffice.org3\programs e se non lo trova in quella sottodirectory
gira tutta la principale \..\OpenOffice.org3 comunicando una msgbox di erroe
per ogni fallimento. Se copio i file origine nella dir in cui cerca in auto
apre due fogli di calc e popi tutto apposto, se sposto l'origine
in programs
dà l'errore che è previsto nella macro e poi cmq apre quello presente in \..\..
\programs -
Uff! ne verrò a capo de sti moduli?
grazie, Angelo
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
