Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

creare pdf da pdfcreator versione 3.2.2 con vba

340 views
Skip to first unread message

mario rossi

unread,
Sep 24, 2018, 6:52:26 PM9/24/18
to
utilizzavo senza problemi la versione 1.7 di pdfcreator che potevo gestire da codice vba con il seguente codice, qualcuno ha un esempio di codice vba per riuscire a gestire la versione di pdfcreator 3.2.2 da access e vba?


++++ CODE ++++++
funzionante fino alla versione 1.7



Public Sub PrintRep(RepName As String, path As String, Files As String, email As String)
Dim PDFCreator1 As PDFCreator.clsPDFCreator, DefaultPrinter As String, c As Long, OutputFilename As String
Dim DirSalvataggio As String
Dim nomefile As String
Dim MailDestinatario As String
DirSalvataggio = path
nomefile = Files
MailDestinatario = email
Set PDFCreator1 = New clsPDFCreator
With PDFCreator1
.cStart "/NoProcessingAtStartup"
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = DirSalvataggio
.cOption("AutosaveFilename") = nomefile
.cOption("AutosaveFormat") = 0
' 0 = PDF
DefaultPrinter = .cDefaultPrinter
.cDefaultPrinter = "PDFCreator"
.cClearCache
DoCmd.OpenReport RepName, acViewNormal, , , acHidden
.cPrinterStop = False
End With
c = 0
Do While (PDFCreator1.cOutputFilename = "") And (c < (maxTime * 1000 / sleepTime))
c = c + 1
Sleep 200
Loop
OutputFilename = path & Files
'Invia MAIL con allegato
With PDFCreator1
.cDefaultPrinter = DefaultPrinter
Sleep 200
.cSendMail OutputFilename, MailDestinatario
.cClose
End With
Sleep 2000 ' Wait until PDFCreator is removed from memory
If OutputFilename = "" Then
MsgBox "Creating pdf file." & vbCrLf & vbCrLf & _
"An error is occured: Time is up!", vbExclamation + vbSystemModal
End If
End Sub

@Alex

unread,
Sep 25, 2018, 9:51:00 AM9/25/18
to
Se ci sono variazioni di Metodi/Proprietà di solito viene riportato nei documenti della casa... ma è difficile vengano DISMESSI, di solito vengono implementati.

A me viene più il dubbio tu non abbia rimosso e ripristinato i RIFERIMENTI... dal momento che usi EARLYBINDING... e forse NON a ragione... quindi
Mi spiego, perchè sei pernmaloso...
Non dovendo intercettare EVENTI dal Modello Oggetti, puoi astrarti dall'uso dei Riferimenti ESPLICITI alla Libreria PDF che ti vincola alla VERSIONE, a favore della Tecnica Associazione Tardiva, o LATEBINDIG.

Sai do cosa sto parlando...? (EarlyBinding VS LateBinding)...?
In caso facci sapere.

@Alex

Bruno Campanini

unread,
Sep 25, 2018, 10:53:14 AM9/25/18
to
mario rossi laid this down on his screen :
Ho installato PDFCreator, che non ho mai usato, nella versione 3.2.2
per poter poi provare il tuo codice con Access 2016.

Ho subito errore in Dim PDFCreator1 As PDFCreator.clsPDFCreator,
né so dove andare a pescare la Reference adeguata.

Comunque con poche righe di codice:

DoCmd.Echo False
DoCmd.OpenReport "rStampaPDF", acViewPreview
DoCmd.OutputTo acOutputReport, , acFormatPDF, "C:\BC\FileName", False
DoCmd.Close acReport, "rStampaPDF"
DoCmd.Echo True

Access spara fuori file PDF, RTF, TXT, XLS con riferimento alle
ultime tre lettere di acFormatXXX.

Bruno

mario rossi

unread,
Sep 25, 2018, 11:41:25 AM9/25/18
to
Access XP forse è il caso di fare un upgrade dici?
e che tu sappia access crea il formato pdfA-1b?

ho sentito oggi l'agenzia delle entrate e mi hanno confermato che la firma delle fatture elettroniche fra soggetti diversi da "pubblica amministrazione" non è obbligatoria

inoltre inviando il file xml alla PEC del sistema di interscambio viene automativamente archiviata per 15 anni sul sito agenzia delle entrate

ovviamente si deve certificare la propria PEC e attivare il servizio di conservazione sul sito dell'agenzia delle entrate

Bruno Campanini

unread,
Sep 26, 2018, 7:32:57 AM9/26/18
to
mario rossi expressed precisely :

>> Ho installato PDFCreator, che non ho mai usato, nella versione 3.2.2
>> per poter poi provare il tuo codice con Access 2016.
>>
>> Ho subito errore in Dim PDFCreator1 As PDFCreator.clsPDFCreator,
>> né so dove andare a pescare la Reference adeguata.
>>
>> Comunque con poche righe di codice:
>>
>> DoCmd.Echo False
>> DoCmd.OpenReport "rStampaPDF", acViewPreview
>> DoCmd.OutputTo acOutputReport, , acFormatPDF, "C:\BC\FileName", False
>> DoCmd.Close acReport, "rStampaPDF"
>> DoCmd.Echo True
>>
>> Access spara fuori file PDF, RTF, TXT, XLS con riferimento alle
>> ultime tre lettere di acFormatXXX.
>>
>> Bruno
>
> Access XP forse è il caso di fare un upgrade dici?
> e che tu sappia access crea il formato pdfA-1b?
Access 2016, con quelle poche righe che ti ho inviato, crea un file
PDF che veraPDF (http://verapdf.org/home/#validation) definisce
PDF/A Compliant, precisamente con riferimento al livello PDF/A-3B,
in una serie di livelli che va da PDF/A-1A, PDF/A-1B... a PDF/A-3U.

> ho sentito oggi l'agenzia delle entrate e mi hanno confermato che la firma
> delle fatture elettroniche fra soggetti diversi da "pubblica amministrazione"
> non è obbligatoria
>
> inoltre inviando il file xml alla PEC del sistema di interscambio viene
> automativamente archiviata per 15 anni sul sito agenzia delle entrate
>
> ovviamente si deve certificare la propria PEC e attivare il servizio di
> conservazione sul sito dell'agenzia delle entrate
Dovrò sbrigarmi anch'io a prtendere un appuntamento con l'ADE per
veder di capirci qualcosa.
Nel frattempo puoi darmi qualche informazione su certificazione PEC
e servizio di conservazione?

Bruno

mario rossi

unread,
Sep 26, 2018, 1:33:09 PM9/26/18
to
PDF/A-3U è più o meno sicuro di quello richiesto che è PDF/A-1B
cosa vuoi sapere sulla certificazione pec e sulla conservazione?

la pec è la posta certificata una qualunque basta che sia certificata
poi ti registri nel sito dell'agenzia delle entrate come azienda privato libero professionista etc... ti serve codice fiscale, password e PIN che ti rilasciano loro per accedere all'area privata che è

https://ivaservizi.agenziaentrate.gov.it/portale/

una volta eseguito l'accesso c'è un link per inserire e confermare la tua PEC in questo modo comunichi all'agenzia delle entrate che quella è la PEC che darai ai tuoi fornitori per ricevere le fatture elettroniche dai fornitori e la userai per inviare le fatture elettroniche ai clienti

poi c'è un altro link per attivare la conversazione delle fatture gratuita per 15 anni devi flaggari 2 opzioni e poi la attivi.

ho chiamato al telefono l'agenzia delle entrate e chiesto informazioni in merito alla conservazione e mi hanno
A. non è obbligatoria la firma elettronica delle fatture fra aziende diverse da pubblica amministrazione
B. mi hanno detto che inviando una fattura elettronica alla PEC del sistema di interscambio viene automaticamente archiviata nell'area di conservazione fatture se preventivamente attivata la conservazione come scirtto sopra.


a questo punto se non ho capito male è sufficiente:
1. creare il file xml che rispetta i tag da loro richiesti come da loro documentazione
2. inviare con la propria pec il file xml alla pec del sistema di intescambio PEC to PEC
3. attendere eventuali comunicazioni di errori o di avvenuta consegna della fattura al cliente

verificate anche voi e attendo eventuali integrazioni alla mia sintesi se necessario. Grazie.

Bruno Campanini

unread,
Sep 26, 2018, 4:46:36 PM9/26/18
to
mario rossi wrote on 26-09-18 :

> PDF/A-3U è più o meno sicuro di quello richiesto che è PDF/A-1B
Suppongo sia più sicuro.
Comunque i bilanci, i verbali d'assemblea che ho sempre inviato
all'ADE e/o alla CCIAA sono sempre stati PDF/A prodotti da Office
(attualmente 2016) e di livello sempre superiore a 1A.
Ok, ho fatto tutto.
Poi credo si possa operare da Fatture e Corrispettivi, andando
a selezionare in Crea nuovo file, poi Trasmissione, poi Conservazione.
Ai primi di Ottobre provo subito.

Io all'ADE (non in Fatture e Corrispettivi) entro con un sol colpo
con una macro di Excel; mi metto alla ricerca dei parametri per
entrare con analoga macro in Fatture e Corrispettivi.
Tu ne sai qualcosa?

Bruno

mario rossi

unread,
Sep 26, 2018, 4:52:53 PM9/26/18
to
credo tu possa creare le fatture direttamente da quell'area oppure creare il file xml e inviarlo alla PEC del sistema di intescambio
scusa l'ignoranza ma cos'è ADE :D

Bruno Campanini

unread,
Sep 27, 2018, 6:29:18 AM9/27/18
to
After serious thinking mario rossi wrote :
Agenzia delle Entrate

Bruno
0 new messages