[Risolto] Pulsante nel formulario per stampa in pdf Report

[Pierluigi1982+]

Ciao a tutti, ho letto un vecchio thread riguardo un pulsante nel formulario per stampare in pdf un rapporto, ho inserito la macro ma nn me lo fa!
qualcuno mi puo' aiutare? allego il DB.
grazie.

[charlie]

Né pulsante, né macro, né report .

[Pierluigi1982+]

scusa, ci riprovo. ti allego il db incriminato.

[charlie]

Non ci siamo, non c'è nessun report nel file.
Inoltre manca anche la macro, dove l'hai memorizzata? Deve essere nel file e non nelle macro personali perché possa funzionare ovunque.

[Pierluigi1982+]

scusami ancora, non so cosa stia succedendo, ho spostato la macro, e ho inserito un'altro rapporto, spero vada a buon fine.
grazie mille

[charlie]

Ciao, per imparare bisogna anche saper copiare, bene. Cioè cercare un post in cui ci sia un database confrontabile con il proprio, ad esempio questo: viewtopic.php?f=13&t=9856&p=54874&hilit ... pdf#p54870 .

[Pierluigi1982+]

Charlie, grazie della pazienza e della "cazziata" , da come si evince sono davvero negato!! Buona Pasqua! pomeriggio vedo di "copiare meglio"!

[Pierluigi1982+]

Buon pomeriggio, non riesco a trovare una soluzione,ho provato a cercare nei riferimenti ma non sono molto esperto. Magari inizialmente non mi sono spiegato bene; ho creato un rapporto, vorrei adesso creare un pulsante con una macro per esportare in pdf il rapporto dal formulario, qualcuno può aiutarmi? grazie allego il db.

[Gaetanopr]

Ho modificato la macro aggiungendo il codice che esporta in pdf, il report viene aperto ma rimane nascosto, viene salvato in pdf e chiuso.
Si può modificare la macro per far rimanere il report aperto.

[Pierluigi1982+]

Grazie mille per l'aiuto!

[Pierluigi1982+]

Editato: Argomento spostato

Buon pomeriggio, ho risolto con un'altra macro che ho trovato in giro sul forum, "senza schermo intero"; ho un problema quando stampo un report tramite macro, prima mi funzionava adesso non più, non vorrei che cambiando il sistema operativo mi dà questo errore! Ti allego l'errore.
Grazie mille.

[charlie]

Ciao, cerca di essere più preciso nelle domande: di macro parliamo? Di quali sistemi operativi? Perché non hai proseguito con la macro precedente?
Diventa difficile starti dietro ...

[Pierluigi1982+]

Non mi mostri il messaggio di errore.
E poi, a quale evento hai associato la macro? Va associato a: 'Durante il caricamento' del Formulario.

per qst ho risolto grazie.

[Pierluigi1982+]

Non mi mostri il messaggio di errore.
E poi, a quale evento hai associato la macro? Va associato a: 'Durante il caricamento' del Formulario.

per qst ho risolto grazie.

l'immagine con l'errore del menu, si riferisce alla macro per stampare un report da pulsante, prima mi funzionava, poi ho cambiato sistema operativo! spero di essere stato chiaro scusa la mia poca esperienza.

[charlie]

Il messaggio parla di 'salvataggio', non di stampa.
In ogni caso potrebbe essere il 'percorso' del file? Ogni s.o. ha il suo.

[Pierluigi1982+]

Buongiorno, si scusa intendevo stampa in pdf, cmq come faccio a modificare il comando per Win?

Codice: Seleziona tutto

Sub subDisplayReport'(Personale as string)
   Personale = "Scadenza patenti"
   pip = thisComponent.Parent.getReportDocuments
   Dim ReportPropArgs(2) As New com.sun.star.beans.PropertyValue
   ReportPropArgs(0).Name = "ActiveConnection"
   ReportPropArgs(0).Value=thisComponent.Drawpage.Forms(0).ActiveConnection
   ReportPropArgs(1).Name = "OpenMode"
   ReportPropArgs(1).Value = "open"
   ReportPropArgs(2).Name = "Hidden"
   ReportPropArgs(2).Value = true
    penReport1 = pip.loadComponentFromURL(Personale,"_blank",8,ReportPropArgs())
   document   = penReport1.CurrentController.Frame' il nostro frame
   dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
   Dim args1(2) as new com.sun.star.beans.PropertyValue
   sPDFURL=Left(ThisComponent.Parent.Location,len(ThisComponent.Parent.Location)-len(ThisComponent.Parent.Title))& format(Now(),"DD-MMMM-YYYY,HH:MM")&".pdf"
   args1(0).Name = "URL"
   args1(0).Value = sPDFURL
   args1(1).Name = "FilterName"
   args1(1).Value = "writer_pdf_Export"
   args1(2).Name = "FilterData"
   args1(2).Value = Array()
   dispatcher.executeDispatch(document, ".uno:ExportToPDF", "", 0, args1())
   MsgBox "Report creato",64,"OK"
   Document.close( True )  ' se si vuole chiudere il report
End Sub

[charlie]

La macro è la stessa, non mi pare dipenda dal sistema operativo.

[Pierluigi1982+]

grazie proverò a capire il problema.