Meilleur auteur de réponses
(Visual Studio 2008) Impression d'une FORM avec ascenseur

Question
-
Bonjour,
Je peux facilement imprimer une FORM mais seulement la partie visible à l'écranExiste-t-il une manière simple pour imprimer une FORM qui n'est pas complétement visible à l'écran, cas par exemple d'une FORM de hauteur supérieure à l'écran, avec un ascenseur vertical ?
Merci d'avance
Cordialement
SC
Cordialement SC
Réponses
-
J'ai trouvé une solution en fouillant sur le net
Je met tous les contrôles de la FORM dans un PANEL et j'imprime le PANEL
Private Sub butImprim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butImprim.Click ' cacher ce que l'on ne veut pas imprimer Me.butSortie.Visible = False : Me.butImprim.Visible = False Me.dgvPack1a7.ClearSelection() : Me.dgvPack8a14.ClearSelection() : Me.dgvPack15a21.ClearSelection() ' Parametre impression Dim m_print As New ControlPrint(Panel1) PrintPreviewDialog1.Document = CType(m_print, PrintDocument) m_print.PrinterSettings = PageSetupDialog1.PrinterSettings m_print.DefaultPageSettings = PageSetupDialog1.PageSettings PrintPreviewDialog1.ShowDialog() ' On réaffiche les cachés NON, aprés impression, on ferme Me.butSortie.Visible = True : Me.butImprim.Visible = True End Sub
Il y a peut être d'autre solution mais celle-ci est très simple à mettre en oeuvre
Cordialement SC
- Marqué comme réponse Nina ZaekovaMicrosoft contingent staff, Moderator mercredi 14 septembre 2016 13:19
Toutes les réponses
-
J'ai trouvé une solution en fouillant sur le net
Je met tous les contrôles de la FORM dans un PANEL et j'imprime le PANEL
Private Sub butImprim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butImprim.Click ' cacher ce que l'on ne veut pas imprimer Me.butSortie.Visible = False : Me.butImprim.Visible = False Me.dgvPack1a7.ClearSelection() : Me.dgvPack8a14.ClearSelection() : Me.dgvPack15a21.ClearSelection() ' Parametre impression Dim m_print As New ControlPrint(Panel1) PrintPreviewDialog1.Document = CType(m_print, PrintDocument) m_print.PrinterSettings = PageSetupDialog1.PrinterSettings m_print.DefaultPageSettings = PageSetupDialog1.PageSettings PrintPreviewDialog1.ShowDialog() ' On réaffiche les cachés NON, aprés impression, on ferme Me.butSortie.Visible = True : Me.butImprim.Visible = True End Sub
Il y a peut être d'autre solution mais celle-ci est très simple à mettre en oeuvre
Cordialement SC
- Marqué comme réponse Nina ZaekovaMicrosoft contingent staff, Moderator mercredi 14 septembre 2016 13:19
-
Bonjour,
Merci de partager la solution trouvée avec la communauté.Cordialement,
NinaMicrosoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.