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 --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
