Accueil > Manip’s > Visual Basic 6 > Imprimer > Imprimante par défaut
VB6, Imprimer, Printers
Imprimante par défaut
mercredi 17 décembre 2008, par
La gestion des Boites de Dialogues simplifie énormément le paramétrage du système
Cette gestion est simplissime sous Delphi (puisqu’il existe autant de composants que de dialogues possibles)
Elle est plus complexe en VB, car toutes les actions sont centralisées en un seul Composant ActiveX
- Le CommonDialog.Ocx
Pour lancer une impression il suffit d’appeler la propriété :
- ShowPrinter
SYNTAXE = CommonDialog1.ShowPrinter
(voir Imprimer facilement un formulaire)
Voici comment ouvrir la boite de Configuration des Imprimantes
Ici par exemple
- Je vais diriger toutes mes impressions futures
-
- Vers un Fichier PDF
-
- Au format A4
-
- Orientation verticale (dite portrait)
Qui sera donc désormais mon Imprimante "par défaut"
TRUC
Dans un premier temps placer la propriété
- PrinterDefault
Sur TRUE
Puis placer le Flags de la Boite d’Impression à
- cdlPDPrintSetup
cdlPDPrintSetup est éqivalent au chiffre &h40& en Hexadécimal
Exemple de Code
Private Sub Command1_Click()
On Error GoTo IMPR_ANNULER
CommonDialog1.Flags = cdlPDPrintSetup
Form1.CommonDialog1.ShowPrinter
CommonDialog1.Flags = cdlPDAllPages
' Ne rien mettre ici --- sinon lance l'impression ---
Exit Sub
IMPR_ANNULER:
MsgBox "Annulé"
End Sub
ATTENTION
Le drapeau (flags) doit être désactivé
- FLAGS = &h0h (cdlPDAllPages)
- Pour pouvoir ensuite rappeler la Boite d’Impression