Discussion :

[AcideBlood]

Bonjour

j'ai un problème d'impression d'image chargé dans ma picturebox.

quand j'utilise une image charger dans mon programme elle s'imprime correctement mais quand j'utilise la même image mais charger depuis mon lecteur "c:\image\" elle s'imprime en Zoom.

voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
        PrintDocument1.Print()
End Sub
 
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
 
        Dim img As Image = PictureBox1.Image
        img.RotateFlip(RotateFlipType.Rotate270FlipNone)
        PictureBox1.Image = img
 
        Dim siza As System.Drawing.Size
        siza.Height = 2480
        siza.Width = 3508
        e.Graphics.DrawImage(PictureBox1.Image, 0, 0)
End Sub

Merci pour votre aide.

[E.M.Kham]

Essaye en faisant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

PictureBox1.SizeMode=PictureBoxSizeMode.StretchImage

[AcideBlood]

bonsoir

Merci pour votre réponse, cela ne marche pas. j'ai un message d'erreur :
impossible de convertir une valeur de type 'boolean' en 'system.drawing.image'.
je l'ai ajouté dans " PrintDocument1_PrintPage " ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

e.Graphics.DrawImage(PictureBox1.SizeMode = PictureBoxSizeMode.Zoom)

j'ai essayer avec un nouveau code, mais même résultat. : ( mon Image est déjà paramétré en affichage " ZOOM " )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Option Explicit On
 
' mettre 5 objets sur form1 = picturebox + button1 + button2 + PrintDocument + PrintPreviewControl
 
Public Class Form1
    Dim imp As Long = 0
 
    Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PictureBox1.ImageLocation = "C:\Analyse\image\3.jpeg" 'chemin de l'image charger dans la picture
    End Sub
 
    Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        imp = 0 ' Global affecté à cette seule fonction
        Me.PrintPreviewControl1.Zoom = 0.75
        Me.PrintPreviewControl1.Rows = 1 ' nb pages vues en apercu (calcul...)
        Dim PageSetupDialog As New PageSetupDialog()  ' objet = PageSetupDialog
        PageSetupDialog.Document = PrintDocument1
        PageSetupDialog.PageSettings.Landscape = False ' paysage (portrait = False)
        Me.PrintPreviewControl1.Document = Me.PrintDocument1
    End Sub
 
    Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        imp = 0 ' Global affecté à cette seule fonction
        Dim r As String = MsgBox("Imprimer sur PAPIER", vbQuestion + vbYesNo +
        vbDefaultButton2)
        If r <> vbYes Then Exit Sub
        Dim PageSetupDialog As New PageSetupDialog() ' objet = PageSetupDialog
        PageSetupDialog.Document = PrintDocument1
        PageSetupDialog.PageSettings.Landscape = False  ' paysage (portrait = False)
        Me.PrintDocument1.Print()
    End Sub
 
 
    Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        e.Graphics.DrawImage(PictureBox1.Image, 0, 0)        
    End Sub
End Class

le problème est que pour imprimer une Image déjà dans les ressource du logiciel sais bon , elle s'imprime correctement mais des que c'est une image externe elle s'imprime en ZOOM.

Merci

[E.M.Kham]

il faut que vous le paramétriez avant l'impression

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
        Dim img As Image = PictureBox1.Image
        img.RotateFlip(RotateFlipType.Rotate270FlipNone)
        PictureBox1.Image = img
 
        PictureBox1.SizeMode=PictureBoxSizeMode.StretchImage
 
        Dim siza As System.Drawing.Size
        siza.Height = 2480
        siza.Width = 3508
        e.Graphics.DrawImage(PictureBox1.Image, 0, 0)

Si vous mettez "zoom" c'est normal qu'elle s'affiche en zoom, si vous voulez qu'elle s'affiche entièrement il vous faut mettre stretch

[AcideBlood]

je suit désoler mais j'obtiens toujours le même résultat .

original


résultat

[Pol63]

le picturebox n'est en rien lié à ce qu'on imprime

un image c'est un nombre de pixels, un affichage tient compte des dpi (par défaut 96 sous windows et 300 pour une imprimante)
il y a une surcharge de drawimage qui permet de définir le rectangle source et de destination il faut donc définir se rectangle

c'est ce que fais le picturebox aussi, quand tu lui dis "stretch", dans son event paint il faut un drawimage en disant de prendre toute l'image et de la mettre à la taille du picturebox
quand tu lui dis zoom il fait un calcul pour savoir quelle dimension agrandir (selon le ratio de départ) puis draw