none
(Visual Studio 2008) Impression d'une FORM avec ascenseur RRS feed

  • Question

  • Bonjour,
    Je peux facilement imprimer une FORM mais seulement la partie visible à l'écran

    Existe-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

    mardi 13 septembre 2016 07:48

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

    mardi 13 septembre 2016 12:45

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

    mardi 13 septembre 2016 12:45
  • Bonjour,
    Merci de partager la solution trouvée avec la communauté.

    Cordialement,
    Nina


    Microsoft 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.

    mercredi 14 septembre 2016 13:22
    Modérateur