Al termine del codice ho inserito la riga Foglio.setTitleRows(Foglio.getCellByPosition(0,0).RangeAddress) (indirizzo di cella vuota) ma nella finestra "modifica area di stampa" (Formato->Area di Stampa->Modifica...) rimane sempre selezionata la ripetizione della riga; l'unica cosa che camb...

Ciao patel, piacere risentirti. L'istruzione setTitleRows necessita, come parametro, un indirizzo di un intervallo di celle. setTitleRows( [in] ::com::sun::star::table::CellRangeAddress aTitleRows ); Personalmente non ho proprio idea di come si faccia a specificare l'indirizzo "vuoto" di u...

Un saluto al forum. Nel file allegato ho impostato delle aree con nome che identificano la tabella, l'area di stampa e la riga da ripetere nella stampa al cambio di pagina. Per eseguire la stampa, ho scritto apposito un codice (sub ProvaStampa1) che definisce l'area di stampa e la riga da ripetere (...

Non entro nel merito del codice che hai scritto, ma l'ho solo provato riscontrando, ovviamente, errori. L'istruzione "Option explicit" specifica che ogni variabile nel codice del programma deve essere dichiarata in modo esplicito con l'istruzione Dim (o altra espressione idonea). Quindi, s...

In primis, hai subordinato il salvataggio in pdf all'esistenza dello stesso file . In pratica, se il file esiste ( condizione if FileExists(fname) è vera ) allora prosegui con il codice, altrimenti esci dalla sub. Il tuo codice, da me commentato: ... Rem Salvataggio in formato .pdf if FileExists(fna...

Ho provato ad utilizzare una vecchia versione di LibreOffice, la 330, per proteggere la libreria "Library1" del file nel primo post e all'apertura dello stesso con OpenOffice417 non ho riscontrato alcun problema. Modificando l'estensione del file da .ods a .zip, ho aperto manifest.xml e mi...

Ciao lucky63,
grazie per la rapida risposta e per la conferma dell'errore.
Ho provato a cercare un po' in internet una possibile soluzione o una possibile segnalazione, ma mi sono arreso...
Per ora proteggerò le librerie con OpenOffice, in attesa di qualche consiglio/soluzione.
Saluti
Geo

Un saluto al forum. Nel foglio ho un pulsante che richiama una macro posta in una libreria protetta. Se la protezione della libreria è effettuata in LibreOffice quando lo stesso file lo apro in OpenOffice mi restituisce il seguente errore Err_Oo_Libreria_Protetta.png Non ho errori nel caso inverso. ...

Nel file allegato troverai le due immagini della finestra di dialogo di come appare adesso e di come vorrei che apparisse. Sempre nel file, troverai anche il codice che ho scritto per l'apertura della finestra di dialogo e che comunque riporto sotto. sub ApriDialog_Stampa rem apro finestra dialogo '...

Ciao Gaetanopr, Invece, come quella nell'immagine è possibile? Si tratta della stessa finestra di dialogo, ma completa di tutte le caselle di controllo create sulla base delle tabelle e dei corpi aziendali esistenti. Rappresenta lo stato della finestra dopo avere eseguito una stampa ed avere "c...

Un saluto al forum. Quando apro la finestra di dialogo, vorrei portare il focus direttamente sul primo pulsante di scelta (OptionButton1). Pur inserendo nel codice l'istruzione dlgStam.getControl("OptionButton1").setFocus() quando apro la finestra di dialogo, risulta sempre evidenziato (co...

Se vi può aiutare... <number:number-style style:name="N106P0" style:volatile="true"> <number:number number:decimal-places="2" loext:min-decimal-places="1" number:min-integer-digits="1" number:decimal-replacement="" number:grouping="tru...

Bene.
Grazie del riscontro.
Geo

Ciao Marilù, non ho spiegato come funziona la macro proposta.... Lancia la macro "Main2". Si apre una finestra di dialogo per la selezione del percorso; fatta la scelta, il codice salva una copia del file originario, nella posizione scelta e con lo stesso nome del file originario. Se invec...

Ciao Marilù, prova questa Sub Main2 Dim Doc As Object Dim SceltaCartella As String Dim NomeFileOriginario As String Dim PercorsoCompleto As string Doc = ThisComponent SceltaCartella = getPath() NomeFileOriginario = Doc.Title 'nome documento aperto completo di estensione rem percorso completo del nuo...

Funziona.
Questa è la modifica apportata Grazie.
Saluti

Allego comunque un file modello.
Con LO mi crea l'errore anche con la modifica suggerita da patel.
Geo
EDIT: anche con OO in macchina virtuale, dopo la chiusura mi mostra il messaggio di errore

In un file modello di calc (.ots) ho associato all'evento "Nuovo documento" l'esecuzione di macro; quindi quando apro il modello questa viene eseguita. Ad inizio codice viene aperto una finestra di messaggio (MsgBox) con due pulsanti (OK ed Annulla). Alla pressione del tasto "Annulla&...

Togliendo il ciclo for/next incriminato, anche a me dava errore dalla seconda fattura. Il problema, scoperto stamattina, è che la variabile i è utilizzata anche in altra parte del codice ... On Error Goto doppione collezione.Add(intCol,intCol) oRanges = ThisComponent.NamedRanges If NOT oRanges.hasBy...

Questo codice funziona Se sostituisco il ciclo Do/Loop con un ciclo For/Next, OO si blocca.
Saluti
Geo

Ciao patel, ho provato ad impostare nuovamente la variabile "collezione" con l'istruzione "set" e sembra che funzioni (OO 4.1.6 su macchina virtuale) n = collezione.Count() if n > 0 then set collezione = New Collection n = collezione.Count() 'n ha valore 0 end if Sto seguendo anc...

Ti posto il link della pagina web con diversi comandi .uno (tipo ".uno:Print" , usato nel tuo codice) per LibreOffice : https://wiki.documentfoundation.org/Development/DispatchCommands Eseguendo una ricerca nella pagina con "Print" sicuramente troverai il comando che serve per st...

Ciao coguaro80,
perfetto.
Quindi se è tutto a posto ricordati di mettere risolto al primo post (viewtopic.php?f=9&t=5661).
Saluti
Geo

Risolto il problema della trascrizione degli indirizzi mail contenenti il carattere "-". Era dovuto dall'uso del carattere "-" quale separatore nel concatenamento di testi per la definizione della variabile "TestoPerScrittura"; ora viene utilizzato il carattere "|&...

Mi dispiace per la perdita di tempo. Prova il codice contenuto nel file allegato. Modifica il percorso di salvataggio del file email.xls . Poi facci sapere anche se riesci ad aprire normalmente il file .xls Saluti Geo EDIT: Ho provato ora il codice con 16380 soggetti ed il file generato conta 26600 ...

In origine, quanto tempo ti serviva per compilare il file email.xls con 16000 indirizzi?

EDIT: Presentati nella apposita sezione "Discussioni Generali e Presentazioni", non lo hai ancora fatto....

... ho visto che mi hai modificato il testo della denominazione portandolo tutto maiuscolo c'è un motivo particolare? Nel tuo file email.xls il testo nella colonna denominazione è maiuscolo, quindi così l'ho impostato. Se invece vuoi mantenerlo uguale a quanto presente del file Soggetti.ods, sostiu...

Ciao coguaro80,
spero di aver centrato la tua richiesta... per fortuna che hai allegato il risultato voluto...
Da modificare il percorso del file email.xls con "p:\email.xls" se è ancora valido.
Saluti
Geo

Ciao nickGiard,
il codice inibisce, ad esempio, l'uso del comando "Salva" tramite menu e combinazione da tastiera, ma non lo inibisce se utilizzato all'interno di una macro.
Quindi ogni modifica può essere salvata utilizzando un codice.
Saluti
Geo

Andrew Pitonyak, nella sua guida Useful Macro Information For OpenOffice.org, al capitolo 4.4 - Intercept menu commands using Basic, propone un codice creato da Paolo Mantovani e da lui modificato, per disabilitare i comandi presenti nel menu. Nel file allegato riporto l'intero codice che disabilita...