[email protected] ha scritto:
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"
nome_file_completo = "soffice.exe -n"
parametro = args1(0).value
shell(nome_file_completo,10,parametro,FALSE)
usando 10 al posto di 6 la finestra si apre a pieno schermo.
in questo modo funziona, il nome file va passato come parametro, non
l'avevo capito.
ciao
Beppe
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
le nuvole non hanno regole,
perchè non hanno mai rinunciato
alla libertà di sognare.
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
