Date: prev next · Thread: first prev next last
2011 Archives by date, by thread · List index

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

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
 mPrintOpts(0).Name = "Pages"
 mPrintOpts(0).Value = """" & iCurPage & """"
End Sub

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

mPrintOpts(0) =
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...


Unsubscribe instructions: E-mail to
Posting guidelines + more:
List archive:
All messages sent to this list will be publicly archived and cannot be deleted


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.