avevo scritto per Oo 1.1.4 una macro (che funzionava correttamente) che
-di un modulo draw su più livelli- creava tre pdf, attivando di volta in
volta un livello e disattivando gli altri.
ora l'ho provata con Oo 2.0 e apparentemente funziona, ma in pratica mi
crea tre pdf con lo stesso livello, anzi, dai problemi che ho in stampa,
credo che sovrapponga un livello agli altri, creando anche pdf
pesantissimi. ho controllato e ricontrollato il codice e non vedo motivi
per cui non debba funzionare;
se qualcuno ha un suggerimento mi sarebbe caro, grazie
il codice:
sub stampaf23
dim livello(0) as new com.sun.star.beans.PropertyValue
dim indirizzo
dim nomefile
indirizzo = "file:///Users/fabrizio/Desktop/archivio/zcancellami/"
dim args(0) as new com.sun.star.beans.PropertyValue
args(0).Name = "FilterName"
args(0).Value = "draw_pdf_Export"
rem ** azzeriamo tutti i layer tranne il primo
rem il primo
oDoc = ThisComponent
oLayerManager = oDoc.getLayerManager()
sfondo = oLayerManager.getByName("SFONDO1")
sfondo.IsVisible = TRUE
sfondo.IsPrintable = TRUE
sfondo = oLayerManager.getByName("SFONDO2")
sfondo.IsVisible = FALSE
sfondo.IsPrintable = FALSE
sfondo = oLayerManager.getByName("SFONDO3")
sfondo.IsVisible = FALSE
sfondo.IsPrintable = FALSE
'stampo il primo
nomefile=indirizzo+"uno.pdf"
ThisComponent.storeToURL(nomefile,args())
'cambio per il secondo
sfondo = oLayerManager.getByName("SFONDO1")
sfondo.IsVisible = FALSE
sfondo.IsPrintable = FALSE
sfondo = oLayerManager.getByName("SFONDO2")
sfondo.IsVisible = TRUE
sfondo.IsPrintable = TRUE
'stampo il SECONDO
nomefile=indirizzo+"due.pdf"
ThisComponent.storeToURL(nomefile,args())
'cambio per il terzo
sfondo = oLayerManager.getByName("SFONDO2")
sfondo.IsVisible = FALSE
sfondo.IsPrintable = FALSE
sfondo = oLayerManager.getByName("SFONDO3")
sfondo.IsVisible = TRUE
sfondo.IsPrintable = TRUE
'stampo il terzo
nomefile=indirizzo+"tre.pdf"
ThisComponent.storeToURL(nomefile,args())
print("Stampa inviata")
end sub
--
http://www.venerandi.com
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
