Macro per anteprima di stampa

[il Luca]

Buongiorno, sono a chiedere aiuto per una cosa che non saprei da che parte cominciare per fare.
Mi serve una macro che apra l'anteprima di stampa del foglio attivo, e un'altra che la chiude. Si può fare? Come?
Grazie infinite a chi avrà voglia di aiutarmi.
Ciao.
Luca.

[Gaetanopr]

Salve, solitamente il registratore di macro non funziona bene, in questo caso puoi semplicemente registrare 2 macro, una per l'apertura e una per la chiusura
ecco

Codice: Seleziona tutto

sub apri_anteprima_stampa
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:PrintPreview", "", 0, Array())

end sub

Codice: Seleziona tutto

sub chiudi_anteprima_stampa
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem--------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:ClosePreview", "", 0, Array())


end sub

[il Luca]

Al registratore non avevo pensato, grazie mille!