Re: [it-users] stampa pagina corrente con macro

Il 31/08/2011 12.33, Carlo Strata ha scritto:
> Il 31/08/2011 12:14, giuseppe@iclam.191.it ha scritto:
> > 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
>
> Ciao Beppe,
>
> sarebbe stupendo che, prima di capire se sia da aprire un bug (o se sia
> già aperto in proposito) tu provassi anche con:
>
> - LibreOffice 3.3.4 Final (2011-08-17), Win32, serie 3.3.x, uscita 15 gg
> fa, come vedi;
>
> - LibreOffice 3.4.3 Final (2011-08-31), Win32, serie 3.4.x, uscita oggi,
> come vedi.
>
> E da qui in poi proseguire. Se la prima serie, la 3.3.x, dovesse aver
> risolto il problema, non installare la 3.4.x, per ora, direi. Magari
> testa la 3.4.3 in un altro pc e valuta con attenzione il passaggio non
> mancando, se puoi, di segnalarci, comunque, ogni problema da te riscontrato.
>
> Facci sapere.
>
> Buona giornata,
>
> Carlo
XP Sp3
LibreOffice 3.4.3
OOO340m1 (Build:302)

installato e riprovato: nessun cambiamento.

ciao
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