Choix de l'imprimante avant la fonction Printform
NeoAlger
Messages postés
4
Date d'inscription
mardi 12 août 2008
Statut
Membre
Dernière intervention
15 décembre 2008
-
15 déc. 2008 à 16:16
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 15 déc. 2008 à 16:58
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 15 déc. 2008 à 16:58
1 réponse
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
15 déc. 2008 à 16:58
15 déc. 2008 à 16:58
salut,
réflexe CODYX :
<hr />
' CHOISIR L'IMPRIMANTE (SANS BOÎTE DE DIALOGUE)
' http://www.codyx.org/snippet_choisir-imprimante-sans-boite-dialogue_495.aspx#1568
' Posté par [ 2359 Renfield ] le 15/11/2007
<hr />
Public Function
SetPrinter(ByRef vsPrinterName
As String) As
Boolean
Dim oTestPrinter
As Printer
For
Each oTestPrinter In
Printers
If
oTestPrinter.DeviceName = vsPrinterName Then
Set
Printer = oTestPrinter
SetPrinter = True
Exit
Function
End If
Next oTestPrinter
End Function
'----------------------------------------------------------------
'Remarques :
'Simplement faire:
'SetPrinter
"\\fr00ab604\D911"
'
'avant d'utiliser votre objet Printer
++
<hr size ="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
réflexe CODYX :
<hr />
' CHOISIR L'IMPRIMANTE (SANS BOÎTE DE DIALOGUE)
' http://www.codyx.org/snippet_choisir-imprimante-sans-boite-dialogue_495.aspx#1568
' Posté par [ 2359 Renfield ] le 15/11/2007
<hr />
Public Function
SetPrinter(ByRef vsPrinterName
As String) As
Boolean
Dim oTestPrinter
As Printer
For
Each oTestPrinter In
Printers
If
oTestPrinter.DeviceName = vsPrinterName Then
Set
Printer = oTestPrinter
SetPrinter = True
Exit
Function
End If
Next oTestPrinter
End Function
'----------------------------------------------------------------
'Remarques :
'Simplement faire:
'SetPrinter
"\\fr00ab604\D911"
'
'avant d'utiliser votre objet Printer
++
<hr size ="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
