Commondialog modifie l'imprimante par défaut...
cs_guepard
Messages postés
1
Date d'inscription
lundi 23 décembre 2002
Statut
Membre
Dernière intervention
12 janvier 2003
-
12 janv. 2003 à 14:14
cs_PROGRAMMIX Messages postés 1133 Date d'inscription mercredi 2 octobre 2002 Statut Membre Dernière intervention 24 juillet 2011 - 4 mars 2004 à 17:23
cs_PROGRAMMIX Messages postés 1133 Date d'inscription mercredi 2 octobre 2002 Statut Membre Dernière intervention 24 juillet 2011 - 4 mars 2004 à 17:23
A voir également:
- Commondialog modifie l'imprimante par défaut...
- Valeur par défaut sql ✓ - Forum SQL
- Imprimante virtuelle txt - Forum Delphi / Pascal
- Liste de défaut ✓ - Forum PHP
- Code défaut inconnu delphi ✓ - Forum Delphi / Pascal
- Imprimante datamatrix - Forum Delphi / Pascal
3 réponses
cs_PROGRAMMIX
Messages postés
1133
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
2
12 janv. 2003 à 20:19
12 janv. 2003 à 20:19
Utilise des variables pour enregistrer les paramètres inhérents à l'imprimante par défaut AVANT l'utilisation de commondialog (donc idéalement au démarrage de ton application)... ensuite utilise commondialog et avant de quitter ton application remet l'imprimante de départ via le code.
keeper72
Messages postés
2
Date d'inscription
samedi 22 mars 2003
Statut
Membre
Dernière intervention
4 mars 2004
4 mars 2004 à 16:59
4 mars 2004 à 16:59
et tu fé comment moi je voi pas tro
t'aurai pas un bout de sourc pour expliker plu facilement
merci
moi c ça ke j'ai en source pour imprimer mais pareil ke guepard ça change tjs l'imprimante par defaut
Dim BeginPage, EndPage, NumCopies, Orientation, i
Set ac = GetObject("k:\bdd\base.mdb")
' Affecte la valeur True à la propriété CancelError.
boite.CancelError = True
On Error GoTo erreur
' Affiche la boîte de dialogue Impression.
boite.ShowPrinter
' Récupère les valeurs sélectionnées par
' l'utilisateur dans la boîte de dialogue.
BeginPage = boite.FromPage
EndPage = boite.ToPage
NumCopies = boite.Copies
Orientation = boite.Orientation
For i = 1 To NumCopies
'imprimante.
rapport = "Etat2"
ac.DoCmd.OpenReport rapport, acViewNormal
Set ac = Nothing
Next
ac.DoCmd.Close
Exit Sub
erreur:
MsgBox (" vous avez choisi de ne pas imprimer ")
merci d'avance
sit'as une reponse
Welcome to the real world!!!!!!!!!
t'aurai pas un bout de sourc pour expliker plu facilement
merci
moi c ça ke j'ai en source pour imprimer mais pareil ke guepard ça change tjs l'imprimante par defaut
Dim BeginPage, EndPage, NumCopies, Orientation, i
Set ac = GetObject("k:\bdd\base.mdb")
' Affecte la valeur True à la propriété CancelError.
boite.CancelError = True
On Error GoTo erreur
' Affiche la boîte de dialogue Impression.
boite.ShowPrinter
' Récupère les valeurs sélectionnées par
' l'utilisateur dans la boîte de dialogue.
BeginPage = boite.FromPage
EndPage = boite.ToPage
NumCopies = boite.Copies
Orientation = boite.Orientation
For i = 1 To NumCopies
'imprimante.
rapport = "Etat2"
ac.DoCmd.OpenReport rapport, acViewNormal
Set ac = Nothing
Next
ac.DoCmd.Close
Exit Sub
erreur:
MsgBox (" vous avez choisi de ne pas imprimer ")
merci d'avance
sit'as une reponse
Welcome to the real world!!!!!!!!!
cs_PROGRAMMIX
Messages postés
1133
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
2
4 mars 2004 à 17:23
4 mars 2004 à 17:23
"POUR CEUX QUI ONT DES SOUCIS AVEC COMMON DIALOG" de PapyJo : http://www.vbfrance.com/code.aspx?ID=6407
"IMPRIMER SUR L'IMPRIMANTE DE SON CHOIX SANS MODIFIER L'IMPRIMANTE PAR DÉFAUT" de Dox : http://www.vbfrance.com/code.aspx?ID=5386
Une de mes sources : "PARAMÉTREZ LA BOÎTE DE DIALOGUE "IMPRESSION" ET RÉCUPÉREZ LES OPTIONS CHOISIES (API)" : http://www.vbfrance.com/code.aspx?ID=17485
Programmix
"IMPRIMER SUR L'IMPRIMANTE DE SON CHOIX SANS MODIFIER L'IMPRIMANTE PAR DÉFAUT" de Dox : http://www.vbfrance.com/code.aspx?ID=5386
Une de mes sources : "PARAMÉTREZ LA BOÎTE DE DIALOGUE "IMPRESSION" ET RÉCUPÉREZ LES OPTIONS CHOISIES (API)" : http://www.vbfrance.com/code.aspx?ID=17485
Programmix
