APERCU AVANT IMPRESSION D'UN FORM

mg2522 Messages postés 16 Date d'inscription dimanche 19 octobre 2008 Statut Membre Dernière intervention 21 juin 2019 - 20 juin 2019 à 16:35
mg2522 Messages postés 16 Date d'inscription dimanche 19 octobre 2008 Statut Membre Dernière intervention 21 juin 2019 - 21 juin 2019 à 11:51
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

2 réponses

vb95 Messages postés 3474 Date d'inscription samedi 11 janvier 2014 Statut Contributeur Dernière intervention 7 mai 2024 169
21 juin 2019 à 06:59
Bonjour !
Pour poster du code prière d'appliquer ceci : https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
Merci
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 137
21 juin 2019 à 10:58
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à

0
mg2522 Messages postés 16 Date d'inscription dimanche 19 octobre 2008 Statut Membre Dernière intervention 21 juin 2019
21 juin 2019 à 11:51
merci pour ta réponse mon form et en 1900 : 980
alors difficile sur un A4 100DPI
je vais me débrouiller avec la copie d'écran
merci encore
cordialement
Michel
0
Rejoignez-nous