stampare pagine PDF

Hai un problema con Excel?

Nuova discussione

stampare pagine PDF
di Salvo18 (utente non iscritto) data: 09/07/2015 14:07:27
Ciao a tutti,
da vba excel,avendo un file pdf aperto, c'è un modo per stampare alcune pagine di questo pdf?
ho provato questo codice che termina i pdf ma non riesco a fargi fare il printout.
Grazie mille per il supporto

Dim strTerminateThis As String
    Dim objWMIcimv2 As Object
    Dim objProcess As Object
    Dim objList As Object
    Dim intError As Integer
    strTerminateThis = "AcroRd32.exe"
    Set objWMIcimv2 = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\.
ootcimv2")
    Set objList = objWMIcimv2.ExecQuery("select * from win32_process where name='" & strTerminateThis & "'")
    For Each objProcess In objList
    On Error Resume Next
        'intError = objProcess.Terminate
    objProcess.printout
    Next
    Set objWMIcimv2 = Nothing
    Set objList = Nothing
    Set objProcess = Nothing

di Vecchio Frac data: 09/07/2015 14:29:09
Addirittura il win management system :)
Comunque penso che per stampare un pdf puoi usare il vecchio trucco della Shell.

acro = "C:Program Files (x86)AdobeReader 11.0ReaderAcroRd32.exe" Shell (acro & " /n /h /t " & FilePDF)

Qui devi controllare ovviamente dove il trova Acrobat Reader esattamente.
Questo manda su stampante predefinita tutto il file.
Verifico come stampare da pagina a pagina e poi ti dico.
di Salvo18 (utente non iscritto) data: 09/07/2015 15:20:51
ciao grazie per la risposta! gentilissimo! però non stampa apre solo adobe! forse sono sbagliati i comandi.. ho provato anche con "/p" ma niente...
di Vecchio Frac data: 09/07/2015 15:25:47
Dovrebbe stampare tutto invece.
A me funziona solo che non siamo in grado di stampare da pagina a pagina :)

'The following switches are available:
'
'/n - Launch a new instance of Reader even if one is already open
'/s - Don't show the splash screen
'/o - Don't show the open file dialog
'/h - Open as a minimized window
'/p < filename > - Open and go straight to the print dialog
'/t < filename > < printername > < drivername > < portname > - Print the file the specified printer.
'< drivername > and < portname > are not mandatory. If they're omitted, the printer will just use the default.

di Salvo18 (utente non iscritto) data: 09/07/2015 16:15:24
questo è il codice che uso..apre adobe reader ma non fa nulla di più...
grazie cmq dell'aiuto ;)

Dim sAdobeReader As String
Dim a As String
a = """Q:ComuneRC PROFESSIONALEFOGLIO.pdf"""

sAdobeReader = """C:Program Files (x86)AdobeReader 11.0ReaderAcroRd32.exe"""

Shell (sAdobeReader & "/n/h/t" & sStrPDFFileName)

di Vecchio Frac data: 09/07/2015 16:27:35
Ci sono da rispettare alcuni spazi. E troppe quote doppie da eliminare.
Inoltre non puoi chiamare la stringa del pdf come "a" e poi non utilizzarla, usandone un'altra ("sStrPDFFileName") al suo posto ed ecco perchè serve sempre Option Explicit) ^_^

Dim sAdobeReader As String
Dim sStrPDFFileName As String

sStrPDFFileName = "Q:ComuneRC PROFESSIONALEFOGLIO.pdf"

sAdobeReader = "C:Program Files (x86)AdobeReader 11.0ReaderAcroRd32.exe"

Shell sAdobeReader & " /n /h /t " & sStrPDFFileName

di Salvo18 (utente non iscritto) data: 09/07/2015 16:41:12
hai ragione sbagliavo io...stampa i file sul disco C..quelli sul server mi da "autorizzazione negata". Per i numeri di pagina non si può fare nulla?
Grazie ancora
di Vecchio Frac data: 09/07/2015 19:42:56
cit. "quelli sul server mi da "autorizzazione negata"
---> Se hai permessi di accesso (almeno lettura) prova a mappare la cartella sul server come unità di rete e accedere tipo K: o X:

cit. "Per i numeri di pagina non si può fare nulla? "
---> La ricerca in rete ha dato esito abbastanza negativo... della serie che ci vuole almeno la versione standard di acrobat e non il solo reader. Che poi ho una mezza idea in testa passando attraverso pdf-tk... ma la devo collaudare, non mi sbilancio :)
di Salvo18 (utente non iscritto) data: 10/07/2015 09:30:57
cit. "quelli sul server mi da "autorizzazione negata"
---> Se hai permessi di accesso (almeno lettura) prova a mappare la cartella sul server come unità di rete e accedere tipo K: o X:

l'accesso in lettura c'è..ho mappato e funziona! ma perchè è necessario fare cio?
Grazie mille
di Vecchio Frac data: 10/07/2015 12:03:45
cit. "ma perchè è necessario fare cio? "
---> Confesso che non ho una risposta abbastanza tecnica da darti. So solo che a Shell non piacciono gli indirizzi con il doppio slash (mi pare si chiamino UNC).

Vuoi Approfondire?