macro per stampa file pdf

[Norman Jones]

--
---
Regards,
Norman

Ciao,
ho sviluppato una macro su excel che apre una serie di file pdf, li stampa
e
sequenzialmente dovrebbe chiuderli,
es
xxx.pdf
yyy.pdf
la logica è aprire il file xxx.pdf, stamparlo, chiuderlo, successivamente
aprire il file yyy.pdf e rifare lo stesso processo.
Il codice scritto però evidenzia un errore nel comando di chisura del
file,
avete idea di una possibile soluzione?
ecco il codice
grazie per l'aiuto
Sub stampa()
Dim NomeFile As String
Dim Directory As String
Directory = Sheets("stampa").Percorso.Value
With Application.FileSearch
.NewSearch
.LookIn = Directory
.FileType = msoFileTypeAllFiles
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
NomeFile = .FoundFiles(i)
Call ShellExecute(0, "Open", NomeFile, "", "", 1)
Call ShellExecute(0, "Print", NomeFile, "", "", 0)
Call ShellExecute(0, "Exit", NomeFile, "", "", 0)
Next i
Else
End If
End With
End Sub

[Norman Jones]

Ciao Luca,

'---------------
ho sviluppato una macro su excel che apre una serie di file pdf, li stampa e
sequenzialmente dovrebbe chiuderli,
es
xxx.pdf
yyy.pdf

la logica è aprire il file xxx.pdf, stamparlo, chiuderlo, successivamente
aprire il file yyy.pdf e rifare lo stesso processo.
Il codice scritto però evidenzia un errore nel comando di chisura del file,
avete idea di una possibile soluzione?
ecco il codice
grazie per l'aiuto

Sub stampa()

Dim NomeFile As String
Dim Directory As String

Directory = Sheets("stampa").Percorso.Value

With Application.FileSearch
.NewSearch
.LookIn = Directory
.FileType = msoFileTypeAllFiles

If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
NomeFile = .FoundFiles(i)

Call ShellExecute(0, "Open", NomeFile, "", "", 1)

Call ShellExecute(0, "Print", NomeFile, "", "", 0)

Call ShellExecute(0, "Exit", NomeFile, "", "", 0)


Next i
Else
End If
End With

End Sub
'---------------

Quale errore incontri?

Potresti postare le tue dichiarazioni di API?

Non penso che le seguenti due istruzioni siano necessarie:

Call ShellExecute(0, "Open", NomeFile, "", "", 1)

Call ShellExecute(0, "Exit", NomeFile, "", "", 0)


---
Regards,
Norman

[Norman Jones]

Ciao Luca,

'--------------
sinteticamente, il mio è stato un tentativo per ovviare ad un problema di
stampa, tu hai ragione , l'istruzione open non è necessaria, ma volevo
testare se l'output in stampa usciva nell'ordine da me selezionato, es:
ordine di stampa:
aaa.pdf
bbb.pdf
ccc.pdf

inserendo semplicemente l'istruzione di stampa, tale ordine non viene
rispettato, per questo volevo provare ad aprire il file, stamparlo e poi
chiuderlo in modo da verificare che l'ordine fosse corretto. Se ci sono
strade + semplici meglio
'--------------

Grazie per i tuoi chiarimenti,

Post by Norman Jones
Quale errore incontri?
Potresti postare le tue dichiarazioni di API?

---
Regards,
Norman