APERCU AVANT IMPRESSION D'UN FORM

Question

Bonjour a tous
JE RAME POUR REDUIRE UN FORM AVANT IMPRESSION POUR FORMAT A4

voici mon boulot mais ca ne marche pas je n'est pas la totalité du form donc reduire me parait bien 
  ' IMPRESSION
    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click     ' Apercu avant l'impression
        CaptureScreen()
        printPreviewDialog1.Document = printdocument1
        printPreviewDialog1.ShowDialog()
    End Sub
    Private Sub CaptureScreen()
        Dim myGraphics As Graphics = Me.CreateGraphics()
        Dim s As Size = Me.Size
        printdocument1.DefaultPageSettings.Landscape = True
        'printPreviewDialog1.PrintPreviewControl.Zoom = 1
        printPreviewDialog1.PrintPreviewControl.AutoZoom = False
        memoryImage = New Bitmap(s.Width, s.Height, myGraphics)
        Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage)
        memoryGraphics.CopyFromScreen(Me.Location.X, Me.Location.Y, 0, 0, s)
    End Sub
    Private Sub printDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles printdocument1.PrintPage
        e.Graphics.DrawImage(memoryImage, -300, 0)
    End Sub

merci d'avance pour vos réponses 
cordialement
Michel

vb95 · Answer

Bonjour ! 
 Pour poster du code prière d'appliquer ceci : https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
Merci

cs_Le Pivert · Answer

Bonjour,

La dimension dépend de la résolution de ton imprimante, voir cela:

https://www.corep.fr/le-guide-dimpression-du-format-a4/dimensions-format-a4/format-a4-en-pixel/

ce qui donne:

  'pour 100 dpi
        Me.Height = 1170
        Me.Width = 827

je n'est pas la totalité du form

pour cela voir ce programme qui fait une capture d'écran du Form:

 https://codes-sources.commentcamarche.net/source/54783-capture-de-controles

Voilà

APERCU AVANT IMPRESSION D'UN FORM

2 réponses

Votre réponse

Discussions similaires