OVH Cloud OVH Cloud

Printpreviewdialog

4 réponses
Avatar
linux_pac
Lorsque je clique dans mon menu fichier ou dans ma barre d'outil sur apercu
avant impression, le printpreviewdialog se met derrière ma form.
Comment faire pour qu'il se mette à l'avant plan?

Code

Private Sub mnuApercu_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles mnuApercu.Click
Try
PrintPreviewDialog1.Document = PrintDocument1
Me.PrintPreviewDialog1.Show()
Catch exp As Exception
exp.ToString()
' MsgBox("An error occurred while trying to load the " & _
' "document for Print Preview. Make sure you currently have " & _
' "access to a printer. A printer must be connected and " & _
' "accessible for Print Preview to work.", MsgBoxStyle.OKOnly, _
' Me.Text)
End Try
End Sub

j'ai essayé aussi avec printpreviewdialog1.showdialog mais c'est le même
resultat
merci pour l'aide

4 réponses

Avatar
Zoury
Salut ! :O)

Essai de passer ton formulaire parent en paramètre :
'***
Me.PrintPreviewDialog1.ShowDialog(Me)
'***

--
Cordialement
Yanick
MVP pour Visual Basic
Avatar
linux_pac
Merci cela fonctionne ,mais une seule fois
Quand je mdifie mon texte et que je veux le revoir dans l'apercu,
le printpreviewdialog ne s'affiche plus.

Comment gérer le bouton fermer ou la croix system du printpreviewdialog1

Merci
Avatar
Zoury
Salut !

Peux-tu nous faire un mini-projet qui démontre ce problème ? (Souvent en
fesant ce type d'exercice, le problème n'apparait plus..)
Car sans voir le code que tu emplois, il est difficile de trouver le
problème... C'est peut-être un problème de ressources mal gèrées ou encore
des événements qui se déclenchent et dérange le fonctionnement normal.

--
Cordialement
Yanick
MVP pour Visual Basic
"" a écrit
dans le message de
news:
Merci cela fonctionne ,mais une seule fois
Quand je mdifie mon texte et que je veux le revoir dans l'apercu,
le printpreviewdialog ne s'affiche plus.

Comment gérer le bouton fermer ou la croix system du printpreviewdialog1

Merci




Avatar
linux_pac
J'ai trouvé la solution
Il faut reconstruire l'objet(printpreviewdialog) à chaque fois
Au début , j'avais mis bêtement le controle sur la form

CODE

Private Sub FichierVoir()
Dim dlg As New PrintPreviewDialog
dlg.Document = PrintDocument1
dlg.Height = (Me.Height) + 25
dlg.Width = (Me.Width)
Try
dlg.Show(Me)
Catch exp As Exception
MsgBox("An error occurred while trying to load the " & _
"document for Print Preview. Make sure you currently have " & _
"access to a printer. A printer must be connected and " & _
"accessible for Print Preview to work.", MsgBoxStyle.OKOnly, _
Me.Text)
End Try

End Sub

Il y a peut-être des choses à améliorer mais ca marche

Merci