Il 09/04/2008 23.59, 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,
...
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& """"
ho aggiunto qui:
print iCurpage
e vedo il numero di pagina corrente, ma non stampa niente
oDoc.print(mPrintOpts())
End Sub
-----------8<-----------
saluti
Paolo M
Xp sp3 - OOo 3.3.0
ho provato a scegliere un'altra stampante ma... niente.
La tua macro ha sempre funzionato con OOo fino alle
versioni precedenti alla 3,
dalla 3.3.0 non riesco a capire cosa non funzioni,
stessa cosa provandola in LibreOffice 3.4.3,
quando hai un attimo di tempo puoi darmi un suggerimento?
Grazie
ciao
Beppe
--
------------------------------------------------------------------------
Per cancellarsi: scrivere a utenti-unsubscr...@it.openoffice.org
Per altre operazioni: http://openoffice.org/projects/it/lists