Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Problème impression CommandDialog ???

Problème impression CommandDialog ???

2 réponses
Avatar
LE TROLL
Bonjour,

J'utilise rarement CommandDialog en impression, pouvez-vous m'indiquer
ce que je dois faire, ça m'évitera d'y passer la journée en tests ???

A l'origine je voulais faire ça:
Printer.Orientation = 2
PrintForm
Printer.EndDoc
Printer.Orientation = 1

Avec le CommandDialog, pour le même résultat, je dois faire quoi ???
Form1.CommonDialog1.Orientation = cdlLandscape
Form1.CommonDialog1.ShowPrinter
-1- si annulé, ou fermé = sortie
-2- imprime la form (printForm)
-3- fin d'impression (endDoc)
-4- remise orientation portrait (Orientation = 1)

Pouvez-vous me mettre les point 1 à 4 pour que ça fonctionne, merci :o)

Merci, au revoir et à bientôt.
--
ng75 arobase noos.fr
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison !
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ng
Salut,

Printer.FontName = CommonDialog1.FontName
Printer.FontSize = CommonDialog1.FontSize
Printer.FontBold = CommonDialog1.FontBold
Printer.FontItalic = CommonDialog1.FontItalic
Printer.FontStrikethru = CommonDialog1.FontStrikethru
Printer.FontUnderline = CommonDialog1.FontUnderline
Printer.ForeColor = CommonDialog1.Color



hmm si c'est pour imprimer le label ca sera =Label2.CommonDialog1...
et même plus simplement :
Set Printer.Font = Label2.Font


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
"andre.araste" a écrit dans le message de news:
41fa33de$0$2197$
Bonjour

Voyez cette procédure qui imprime tout simplement le contenu du contrôle
Label2

Private Sub Command4_Click()
Rem Click sur bouton Impression
CommonDialog1.Flags = cdlPDDisablePrintToFile
CommonDialog1.CancelError = True
CommonDialog1.ShowPrinter
Printer.FontName = CommonDialog1.FontName
Printer.FontSize = CommonDialog1.FontSize
Printer.FontBold = CommonDialog1.FontBold
Printer.FontItalic = CommonDialog1.FontItalic
Printer.FontStrikethru = CommonDialog1.FontStrikethru
Printer.FontUnderline = CommonDialog1.FontUnderline
Printer.ForeColor = CommonDialog1.Color
Printer.Print
Printer.Print Tab(4); Label2
Printer.EndDoc
Exit Sub
End Sub

(extrait de mon cours de Programmation en Visual Basic)

Bonne réception.

http://perso.wanadoo.fr/andre.araste/
Membre du Club Win's: http://www.clubwins.org
Avertissement: Je ne vends rien.




"LE TROLL" <le a écrit dans le message de news:

Bonjour,

J'utilise rarement CommandDialog en impression, pouvez-vous m'indiquer
ce que je dois faire, ça m'évitera d'y passer la journée en tests ???

A l'origine je voulais faire ça:
Printer.Orientation = 2
PrintForm
Printer.EndDoc
Printer.Orientation = 1

Avec le CommandDialog, pour le même résultat, je dois faire quoi ???
Form1.CommonDialog1.Orientation = cdlLandscape
Form1.CommonDialog1.ShowPrinter
-1- si annulé, ou fermé = sortie
-2- imprime la form (printForm)
-3- fin d'impression (endDoc)
-4- remise orientation portrait (Orientation = 1)

Pouvez-vous me mettre les point 1 à 4 pour que ça fonctionne, merci :o)

Merci, au revoir et à bientôt.
--
ng75 arobase noos.fr



Avatar
LE TROLL
Merci, ça m'a servi en partie, j'ai complété...


"ng" a écrit dans le message de news:

Salut,

Printer.FontName = CommonDialog1.FontName
Printer.FontSize = CommonDialog1.FontSize
Printer.FontBold = CommonDialog1.FontBold
Printer.FontItalic = CommonDialog1.FontItalic
Printer.FontStrikethru = CommonDialog1.FontStrikethru
Printer.FontUnderline = CommonDialog1.FontUnderline
Printer.ForeColor = CommonDialog1.Color



hmm si c'est pour imprimer le label ca sera =Label2.CommonDialog1...
et même plus simplement :
Set Printer.Font = Label2.Font


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
"andre.araste" a écrit dans le message de news:
41fa33de$0$2197$
Bonjour

Voyez cette procédure qui imprime tout simplement le contenu du contrôle
Label2

Private Sub Command4_Click()
Rem Click sur bouton Impression
CommonDialog1.Flags = cdlPDDisablePrintToFile
CommonDialog1.CancelError = True
CommonDialog1.ShowPrinter
Printer.FontName = CommonDialog1.FontName
Printer.FontSize = CommonDialog1.FontSize
Printer.FontBold = CommonDialog1.FontBold
Printer.FontItalic = CommonDialog1.FontItalic
Printer.FontStrikethru = CommonDialog1.FontStrikethru
Printer.FontUnderline = CommonDialog1.FontUnderline
Printer.ForeColor = CommonDialog1.Color
Printer.Print
Printer.Print Tab(4); Label2
Printer.EndDoc
Exit Sub
End Sub

(extrait de mon cours de Programmation en Visual Basic)

Bonne réception.

http://perso.wanadoo.fr/andre.araste/
Membre du Club Win's: http://www.clubwins.org
Avertissement: Je ne vends rien.




"LE TROLL" <le a écrit dans le message de news:

Bonjour,

J'utilise rarement CommandDialog en impression, pouvez-vous m'indiquer
ce que je dois faire, ça m'évitera d'y passer la journée en tests ???

A l'origine je voulais faire ça:
Printer.Orientation = 2
PrintForm
Printer.EndDoc
Printer.Orientation = 1

Avec le CommandDialog, pour le même résultat, je dois faire quoi ???
Form1.CommonDialog1.Orientation = cdlLandscape
Form1.CommonDialog1.ShowPrinter
-1- si annulé, ou fermé = sortie
-2- imprime la form (printForm)
-3- fin d'impression (endDoc)
-4- remise orientation portrait (Orientation = 1)

Pouvez-vous me mettre les point 1 à 4 pour que ça fonctionne, merci
:o)

Merci, au revoir et à bientôt.
--
ng75 arobase noos.fr