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 [email protected] 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
