Acrobat - Generare un file pdf

Generare un file PDF di Acrobat - Adobe:

Trasformazione file di stampa in Adobe Pdf.

Un file di Access pu� essere esportato creando un adeguato file Pdf. A questo fine bisogna procedere in questo modo:

Nelle propriet� di stampa, il file che funger� da template, dovranno essere stabilite le propriet� di stampa selezionando la stampante Acrobat PDF, che viene installata sempre installando Adobe Acrobat.

Inoltre, bisogna mettere nelle propriet� della stampante:
1) Non richiedere il nome del file da creare. Infatti la procedura creer� nella path c:\documents Setting\<nome utente>\Docuementi un file generico. In fase poi di creazione del nostro file, si dovr� ricopiarlo con un nome univoco, nella directory di lavoro e successivamente si canceller� l'originale, in maniera da non confondersi.
2) Non richiedere se si voglia sovrapporre il file in caso di esistenza file.
3) Nell'etichetta delle propriet� del Report inserire il nome col quale Adobe creer� il file PDF
Il codice � il seguente:

On Error GoTo Errore
           If ObjAccess Is Nothing Then
            Set ObjAccess = CreateObject("Access.Application")
            End If
            
            With ObjAccess
                  .OpenCurrentDatabase (DbName), False
                  Set Dbs = .CurrentDb
                  .Visible = False
                    
    If Dir("C:\Documents and Settings\xf35564\Documenti\Stipendi.pdf") <> "" Then
        Kill "C:\Documents and Settings\xf35564\Documenti\Stipendi.pdf"
    End If
                    
                    .DoCmd.OpenReport "Stipendi", acViewNormal, "", "", acHidden   ', acNormal, printtofile:=True, Collate:=True, prttofilename:="c:\prova\minchia.dbf"
                    .CloseCurrentDatabase
                    .Quit
            End With
   Set ObjAccess = Nothing
   
Do
    If Dir("C:\Documents and Settings\xf35564\Documenti\Stipendi.pdf") <> "" Then
        FrmLoad.Caption = "Copia " & App.Path & "\Cedolini\" & PDFName & ".Pdf" & " in corso"
        FileCopy "C:\Documents and Settings\xf35564\Documenti\Stipendi.pdf", App.Path & "\Cedolini\" & PDFName & ".Pdf"
    Exit Do
    End If
Loop

FrmLoad.ImgErrore.Visible = False

Exit Sub

Errore:
Dim MM As Long
Do While MM < 10000
MM = MM + 1
Loop
If FrmLoad.ImgErrore.Visible = False Then
FrmLoad.ImgErrore.Visible = True
Else
FrmLoad.ImgErrore.Visible = False
End If
Err.Clear
Resume

(Vedi sorgenti STIPENDI)

Generare un file PDF di Acrobat - Adobe:

Trasformazione file di stampa in Adobe Pdf.

Un file di Access puo' essere esportato creando un adeguato file Pdf. A questo fine bisogna procedere in questo modo:

Nelle proprieta' di stampa, il file che fungera' da template, dovranno essere stabilite le proprieta' di stampa selezionando la stampante Acrobat PDF, che viene installata sempre installando Adobe Acrobat.

Inoltre, bisogna mettere nelle proprieta' della stampante:
1) Non richiedere il nome del file da creare. Infatti la procedura creera' nella path c:\documents Setting\<nome utente>\Docuementi un file generico. In fase poi di creazione del nostro file, si dovra' ricopiarlo con un nome univoco, nella directory di lavoro e successivamente si cancellera' l'originale, in maniera da non confondersi.
2) Non richiedere se si voglia sovrapporre il file in caso di esistenza file.
3) Nell'etichetta delle proprieta' del Report inserire il nome col quale Adobe creera' il file PDF
Il codice e' il seguente:

On Error GoTo Errore
If ObjAccess Is Nothing Then
Set ObjAccess = CreateObject("Access.Application")
End If

With ObjAccess
.OpenCurrentDatabase (DbName), False
Set Dbs = .CurrentDb
.Visible = False

If Dir("C:\Documents and Settings\xf35564\Documenti\Stipendi.pdf") <> "" Then
Kill "C:\Documents and Settings\xf35564\Documenti\Stipendi.pdf"
End If

.DoCmd.OpenReport "Stipendi", acViewNormal, "", "", acHidden ', acNormal, printtofile:=True, Collate:=True, prttofilename:="c:\prova\minchia.dbf"
.CloseCurrentDatabase
.Quit
End With
Set ObjAccess = Nothing

Do
If Dir("C:\Documents and Settings\xf35564\Documenti\Stipendi.pdf") <> "" Then
FrmLoad.Caption = "Copia " & App.Path & "\Cedolini\" & PDFName & ".Pdf" & " in corso"
FileCopy "C:\Documents and Settings\xf35564\Documenti\Stipendi.pdf", App.Path & "\Cedolini\" & PDFName & ".Pdf"
Exit Do
End If
Loop

FrmLoad.ImgErrore.Visible = False

Exit Sub

Errore:
Dim MM As Long
Do While MM < 10000
MM = MM + 1
Loop
If FrmLoad.ImgErrore.Visible = False Then
FrmLoad.ImgErrore.Visible = True
Else
FrmLoad.ImgErrore.Visible = False
End If
Err.Clear
Resume

(Vedi sorgenti STIPENDI)