fabrizio venerandi ha scritto:
ma sia usando valori numerici che il nome del layer il programma non
dà errori, ma non si sposta dal layer corrente. qualcuno sa se sto
usando un comando errato (non ci sono note al riguardo) o comunque
come ci si sposta tra i layer?
ho risolto usando UNO al posto dei dispatch quindi ora sto meglio. in
ogni caso la curiosità rimane, se qualcuno si trovasse ad averci a che fare.
btw, per la cronaca, questo è il programmino che da oggi mi stamperà gli
f23 ;)
un layer fisso con i dati e tre layer che si attivano e disattivano per
i tre diversi fogli del modulo. In realtà stampa un PDF, ma solo per
problemi locali col driver di stampa.
sub stampaf23
dim livello(0) as new com.sun.star.beans.PropertyValue
dim indirizzo
indirizzo = "file:///Users/fabrizio/Desktop/archivio/1magazzinodiscarico/"
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
indirizzo=indirizzo+"uno.pdf"
ThisComponent.storeToURL(indirizzo,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
indirizzo=indirizzo+"due.pdf"
ThisComponent.storeToURL(indirizzo,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
indirizzo=indirizzo+"tre.pdf"
ThisComponent.storeToURL(indirizzo,args())
end sub
--
http://www.venerandi.com
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
