[it-users] stampa pagina corrente con macro

Windows Xp Sp3 -
LibreOffice 3.3.3
OOO330m19 (Build:301)
tag libreoffice-3.3.3.1

Questa macro la usavo da swriter con OOo per stampare la pagina corrente:

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

Ho messo un punto di interruzione su oDoc.print(mPrintOpts()),
e le variabili di stampa sono cosi' impostate:

mPrintOpts(0) = com.sun.star.beans.PropertyValue
mPrintOpts(0).Name = "Pages"   String
mPrintOpts(0).Value = ""47"""  Variant/String
mPrintOpts(0).State = 0        Long

e aveva sempre funzionato, da LibreOffice non piu'.

Quando chiedo file->stampa a volte mi dice nel riquadro di stampa:
Nessuna pagina

richiedendo file->stampa una seconda volta le pagine ci sono,
a volte anche prima di usare la macro le pagine da stampare
non ci sono, infatti premendo l'icona di stampa tutto il documento
non stampa
(in questo caso richiedo file->stampa e ricompaiono le pagine).


Non riesco a capire cosa non vada...
Se qualcuno ha qualche idea...

Grazie
Beppe




--
Unsubscribe instructions: E-mail to users+help@it.libreoffice.org
Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
List archive: http://listarchives.libreoffice.org/it/users/
All messages sent to this list will be publicly archived and cannot be deleted