Come impostare una stampante fissa all'interno di una Macro da usare su Pc diversi
Valerio
non so risolvere con le mie conoscenze.
Devo preparare una macro per vari uffici, con la quale al termine
dell'elaborazione, mi creer� un PDF e lo invier� tramite E-mail ad un
indirizzo che poi definir� nel programma di posta.
Il mio problema � che per creare il PDF uso la stampante "virtuale" di
PDF CREATOR, solo che in ogni PC ha un identificativo diverso (ne00,
ne15, ecc), facendomi fallire sempre la macro creata con il
registratore di macro.
Come posso ovviare??
Si puo' impostare nella macro che stampi sulla stampante chiamata "PDF
Creator" anche se ha riferimento "nexx" diverso sulle varie
postazioni??
Grazie a tutti Voi.
Mauro Gamberini
> dell'elaborazione, mi creer� un PDF e lo invier� tramite E-mail ad un
> indirizzo che poi definir� nel programma di posta.
> Il mio problema � che per creare il PDF uso la stampante "virtuale" di
> PDF CREATOR, solo che in ogni PC ha un identificativo diverso (ne00,
> ne15, ecc), facendomi fallire sempre la macro creata con il
> registratore di macro.
> Come posso ovviare??
> Si puo' impostare nella macro che stampi sulla stampante chiamata "PDF
> Creator" anche se ha riferimento "nexx" diverso sulle varie
> postazioni??
>
Attacco *brutale*... :-)
Public Sub m()
Dim s As String
Dim lng As Long
'salvo il nome della stampante predefinita
s = ActivePrinter
On Error Resume Next
'ciclo da 0 a 30(o anche pi�)
For lng = 0 To 30
'se ho trovato la stampante
If InStr(ActivePrinter, _
"PDFCreator") Then
'esco dal ciclo
Exit For
Else
'altrimenti provo ad assegnare
'una stampante valida
ActivePrinter = _
"PDFCreator su Ne" & _
Format(lng, "00") & ":"
End If
Next
'stampo
'codice di stampa
'ripristino la vecchia stampante
'ActivePrinter = s
End Sub
--
---------------------------
Mauro Gamberini
Microsoft MVP - Excel
http://www.riolab.org/
http://www.maurogsc.eu/
http://social.microsoft.com/Forums/it-IT/excelit/threads
__________ Informazioni da ESET NOD32 Antivirus, versione del database delle firme digitali 4915 (20100304) __________
Il messaggio � stato controllato da ESET NOD32 Antivirus.
r
> Salve, avrei questa necessità all'interno di una Macro, che purtroppo
> non so risolvere con le mie conoscenze.
>
> Devo preparare una macro per vari uffici, con la quale al termine
> indirizzo che poi definirò nel programma di posta.
> Il mio problema è che per creare il PDF uso la stampante "virtuale" di
> PDF CREATOR, solo che in ogni PC ha un identificativo diverso (ne00,
> ne15, ecc), facendomi fallire sempre la macro creata con il
> registratore di macro.
> Come posso ovviare??
> Si puo' impostare nella macro che stampi sulla stampante chiamata "PDF
> Creator" anche se ha riferimento "nexx" diverso sulle varie
> postazioni??
> Grazie a tutti Voi.
oltre al carroarmato di Mauro (ciao)
http://groups.google.it/group/microsoft.public.it.office.excel/msg/4687d8a5aa774c28?hl=it
questa è la routine che uso io per identificare le stampanti in un
determinato istante ...
la consigliò uno che ne sa una più del diavolo :-)
comunque tornando alla fuzione restituisce un vettore contenente i
nomi delle stampanti ... su quel risultato puoi fare un ciclo
identificando la stampante PDF e recuperare così poi il nome completo
compreso il neXX ...
prova poi a dare uno sguardo anche qui:
http://excelvba.altervista.org/blog/index.php/Excel-VBA/Allegare-File-XPS-una-alternativa-ai-PDF-Prima-parte.html
e qui:
http://excelvba.altervista.org/blog/index.php/Excel-VBA/Usare-PDFCreator-da-codice-VBA.html
per il resto del tuo lavoro.
se hai problemi ad adattare la function suggerita dillo.
saluti
r
Mauro Gamberini
>
LOL!
--
---------------------------
Mauro Gamberini
Microsoft MVP - Excel
http://www.riolab.org/
http://www.maurogsc.eu/
http://social.microsoft.com/Forums/it-IT/excelit/threads
__________ Informazioni da ESET NOD32 Antivirus, versione del database delle firme digitali 4913 (20100303) __________
Valerio
Perfetta soluzione...
Grazie tante...