OVH Cloud OVH Cloud

suspendre l'imprimante par defaut et la désuspendre

2 réponses
Avatar
André
Bonjour à tous

Qui, parmi les costauds qui règnent sur ce site, sera assez sympha pour me
donner le code pour faire ça ? attention, les API c'est pas ma tasse de
thé... je dirais mm que je suis juste capable de copier-coller... ;-)

--
Une noix d'honneur à qui me dépannera... Merci

2 réponses

Avatar
jojolapin
"André" <andré@aol.com> a écrit dans le message de news:

Bonjour à tous

Qui, parmi les costauds qui règnent sur ce site, sera assez sympha pour me
donner le code pour faire ça ? attention, les API c'est pas ma tasse de
thé... je dirais mm que je suis juste capable de copier-coller... ;-)

--
Une noix d'honneur à qui me dépannera... Merci


Voilà la macro que j'ai faite pour passer d'une HP310 puis retour à
HP1100C(par défaut)
Macro HP310 avec retour sur HP1100C

Sub MAIN

FichierConfigImpression .Imprimante = "HP DeskJet 310 Printer sur LPT3:",
.PasCommeConfigParDéfSystème = 1

FichierImprimer .AjouterAuFichier = 0, .Etendue = "0",
.ImprimerDansFichierNom = "", .De = "", .A = "", .Type = 0, .NbCopies = "1",
.Pages = "", .Ordre = 0, .ImprimerDansFichier = 0, .AssemblerCopies = 1,
.NomFichier = ""

FichierConfigImpression .Imprimante = "HP DeskJet 1100C Printer sur LPT1:",
.PasCommeConfigParDéfSystème = 1

End Sub

Avatar
AndréSch
Merci ami mais je crois que tu m'as mal compris... ou que je me suyis mal
exprimé
je ne veux pas changer l'imprimante par default, je veux la suspendre, puis
la relancer

merci tout de mm

andré
"jojolapin" a écrit dans le message de
news:

"André" <andré@aol.com> a écrit dans le message de news:

Bonjour à tous

Qui, parmi les costauds qui règnent sur ce site, sera assez sympha pour
me
donner le code pour faire ça ? attention, les API c'est pas ma tasse de
thé... je dirais mm que je suis juste capable de copier-coller... ;-)

--
Une noix d'honneur à qui me dépannera... Merci


Voilà la macro que j'ai faite pour passer d'une HP310 puis retour à
HP1100C(par défaut)
Macro HP310 avec retour sur HP1100C

Sub MAIN

FichierConfigImpression .Imprimante = "HP DeskJet 310 Printer sur LPT3:",
.PasCommeConfigParDéfSystème = 1

FichierImprimer .AjouterAuFichier = 0, .Etendue = "0",
.ImprimerDansFichierNom = "", .De = "", .A = "", .Type = 0, .NbCopies =
"1", .Pages = "", .Ordre = 0, .ImprimerDansFichier = 0, .AssemblerCopies =
1, .NomFichier = ""

FichierConfigImpression .Imprimante = "HP DeskJet 1100C Printer sur
LPT1:", .PasCommeConfigParDéfSystème = 1

End Sub