Antonello Cerrato ha scritto:
gengar schrieb:
in rete ho trovato un foglio excel che mi inetressava e ho cercato di
tradurre le macro
le + semplici ci sono riuscito ma x altre due no
anche cercando in rete e con l'aiuto sul canale irc ho dovuto desistere
sono troppo comlicate x la mia portata e le mie conoscenze ( tra
l'altro scarse di programmazione) vi chiedo un aiuto MOLTO consistente
ho anche chiesto al legittimo proprietario se una volta tradotto lo
potessi donare alla comunità Ooo (si tratta di una gestione
semplificata di magazzino) e sono in attesa di risposta
altre macro sono simili e se mi commentate il codice mi servirà da
lezione x prossimi futuri
grazie ancora
>> Attribute VBA_ModuleType=VBAModule
>> Sub Modulo11
>> Sub STAMPA_FORNITORI()
>> '
>> ' STAMPA_FORNITORI Macro
>> ' Macro registrata il 26/12/2005 da Alberto Nosotti
>> '
>> Dim STAMPAFOR As Integer
>> ActiveSheet.PageSetup.PrintArea = ""
>>
Non sono nemmeno io un grande esperto, e non ho nemmeno tanto tempo, ma
mi é subito saltato all'occhio un problema in questa routin e cioé che
secondo me
quel ActiveSheet.PageSetup.PrintArea = "" detto così non mi pare che
abbia senso, io direi una cosa del genere:
oDesktop = createUnoService("com.sun.star.frame.Desktop") 'crea
oggetto Desktop (sessione corrente o giù di li)
oDocCalc = oDesktop.CurrentComponent 'assegna alla variabile il tuo
documento di Calc
oDocCalc.CurrentController.ActiveSheet.PageSetup.PrintArea = ""
'.ActiveSheet é una proprietà di CurrentController che a sua volta é una
proprietà del documento e rappresenta la singole tabella (foglio), in
questo caso quella attiva...
per fare riferimento a una tabella del documento di Calc si può usare
anche il metodo oDocCalc.getSheets.getByIndex(0) oppure
oDocCalc.getSheets.getByName("NomeDellaTabella")
comunque se devo proprio dirla tutta, anche quella proprietà PageSetup
non mi convince e infatti non riesco a capire da dove sbuca!
Ma prendi tutto ciò con le pinze perché come dicevo sono un quasi-profano!
Buon lavoro!
Antonello
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
è una macro in VBA in un foglio Excell penso fatta con il registratore
di macro che devo convertire in StarBasic
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
