Paolo Mantovani ha scritto:
Ciao Giuseppe,
Il mercoledì 9 aprile 2008 17:12:02 iclam contabilita ha scritto:
cercavo di creare una macro che stampasse la pagina corrente,
per poi assegnarla ad un pulsante.
Questa e' registrata con il registratore di macro,
args1(1).Value = 15
ha il valore in questo caso della mia pagina corrente,
valore che non riesco a trovare in una variabile.
suggerimenti?
In generale, per ottenere la pagina corrente in Writer:
ThisComponent.CurrentController.ViewCursor.Page
Ecco un esempio:
-----------8<-----------
REM ***** BASIC *****
Sub PrintCurrentPage
Dim oDoc As Object
Dim oDocView As Object
Dim iCurPage As Integer
oDoc = ThisComponent
oDocView = oDoc.getCurrentController()
iCurPage = oDocView.ViewCursor.Page
Dim mPrintOpts(0) As New com.sun.star.beans.PropertyValue
mPrintOpts(0).Name = "Pages"
mPrintOpts(0).Value = """" & iCurPage & """"
oDoc.print(mPrintOpts())
End Sub
-----------8<-----------
saluti
Paolo M
Perfetta! Grazie a tutti.
Gia' creata l'icona e assegnata la macro.
ciao
Beppe
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
