D. Michel Morelli wrote:
Ciao all. Ho un testo che puo' essere formato da piu' di 2 pagine e ho
un template dove la seconda pagina (e le successive) corrisponde al
modello "Seconda pagina" nel quale viene impostato il secondo cassetto
della stampante. Ora ho la necessità che lo stesso file possa essere
stampato anche su un'altra stampante, dove pero' la seconda pagina (e
successive) deve essere stampato sul cassetto 3. Pensavo di fare tutto
questo via MACRO, ma come faccio a muovermi sulla seconda pagina ???
Un'altra soluzione è quella, sempre creando una macro, di spostarmi
sull'ultima pagina (CTRL-END premuto piu' volte) e modificare da li' il
modello della pagina. Ma vorrei pero' riuscire a tornare nella stessa
posizione dove ero prima di eseguire la macro. C'e' la possibilità di
fare questo ?
Ciao,
secondo me non serve spostarsi, ma si può creare un nuovo cursor (non
viewcursor).
Sub InfoStile
oDoc = ThisComponent
' stampo il nome dello stile di pagina del punto in cui mi trovo
oViewCursor = oDoc.CurrentController.getViewCursor()
print "Stile visualizzato: " & oViewCursor.PageStyleName
' creo un nuovo cursore e vado alla fine del documento
oCursor = oDoc.Text.createTextCursor()
oCursor.gotoEnd(False)
print "Stile ultima pagina: " & oCursor.PageStyleName
End Sub
La visualizzazione non dovrebbe cambiare.
Tuttavia modificherei direttamente lo stile di pagina.
Mi sembra possa funzionare:
Sub CambiaCassetto
oDoc = ThisComponent
oStyles = oDoc.StyleFamilies.getByName("PageStyles")
oStyle = oStyles.getByName("Seconda pagina")
' cambio il Cassetto (NB: il valore dev'essere in elenco)
oStyle.PrinterPaperTray="Cassetto 3"
End Sub
--
MC
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
