[Risolto]Macro salva pdf di fatt.ddt nelle relative cartelle

[ponteca]

Ciao, ho trovato una macro per il salvataggio dei documenti in pdf, scritta da Gaetanopr, e dopo le dovute modifiche di adattamento al mio foglio funziona perfettamente.
La mia domanda e la seguente: è possibile destinare il file da salvare nella relativa cartella? Ovvero se nella casella E9 seleziono fattura piuttosto che ddt, si può destinarlo nella cartella fattura piuttosto che nella cartella ddt? Grazie

Eccola:

sub stampa_range_selezionato

dim args2(1) as new com.sun.star.beans.PropertyValue
dim Arg(0) as new com.sun.star.beans.PropertyValue
Doc = ThisComponent
Controller = Doc.CurrentController
Sheet = Controller.ActiveSheet
CellRange = Sheet.getCellRangeByName("$A$1:$I$64")
cell = Sheet.getCellByPosition(4,6).string ' cella da dove prendere il nome
Controller.select(CellRange)
Arg(0).Name = "Selection"
Arg(0).Value = CellRange

args2(0).Name = "FilterName"
args2(0).Value = "calc_pdf_Export"
args2(1).Name = "FilterData"
args2(1).Value = Arg()
Doc.storeToURL("file:///home/giovanni/Scrivania/" & cell & ".pdf",args2())

end sub

[Gaetanopr]

Ciao, ho trovato una macro per il salvataggio dei documenti in pdf, scritta da Gaetanopr, e dopo le dovute modifiche di adattamento al mio foglio funziona perfettamente.

Ciao Ponteca, a dire il vero non ricordo, comunque l'ho modificata in questo modo

Codice: Seleziona tutto

sub stampa_range_selezionato

dim args2(1) as new com.sun.star.beans.PropertyValue
dim Arg(0) as new com.sun.star.beans.PropertyValue
Doc = ThisComponent
Controller = Doc.CurrentController
Sheet = Controller.ActiveSheet 
CellRange = Sheet.getCellRangeByName("$A$1:$I$64")
cell = Sheet.getCellByPosition(4,6).string ' cella da dove prendere il nome
cell1 = Sheet.getCellByPosition(4,8).string ' cella da dove prendere il nome della cartella di destinazione
Controller.select(CellRange)
Arg(0).Name = "Selection"
Arg(0).Value = CellRange

args2(0).Name = "FilterName"
args2(0).Value = "calc_pdf_Export"
args2(1).Name = "FilterData"
args2(1).Value = Arg()
Doc.storeToURL("file:///C:/Users/Gaetano/Desktop/" & cell1 & "/" & cell & ".pdf",args2()) 

end sub

questa parte

Codice: Seleziona tutto

Doc.storeToURL("file:///C:/Users/Gaetano/Desktop/" & cell1 & "/" & cell & ".pdf",args2()) 

la cambierai con i tuoi riferimenti io ho usato quelli del mio pc per fare delle prove, quindi nel tuo caso diventerà qualcosa del genere

Codice: Seleziona tutto

Doc.storeToURL("file:///home/giovanni/Scrivania/" & cell1 & "/" & cell & ".pdf",args2()) 

PS: Quando creerai le cartelle di destinazione dovrai avere l'accortezza di crearle in maniera identica al nome che compare in E9, nella convalida dati della cella E9 dovrai sostituire D.D.T. in D.D.T oppure DDT, in quanto non puoi nominare le cartelle con il punto finale.

Saluti

[ponteca]

Funziona! Ma veramente e solo questione di fantasia e si puo fare tutto con il foglio di calcolo! Adesso ho un sistema gestionale perfetto e personalizzato.
Grazie gaetanopr ti offrirei una birra volentieri!

[Gaetanopr]

Funziona! Ma veramente e solo questione di fantasia e si puo fare tutto con il foglio di calcolo! Adesso ho un sistema gestionale perfetto e personalizzato.
Grazie gaetanopr ti offrirei una birra volentieri!

Ciao ponteca, io ne rimango stupito ogni giorno di quello che si riesce a fare
birra accettata volentieri

Saluti

[ponteca]

Ciao, chissà che un giorno non sia veramente possibile. Grazie sempre di tutto.