Problème d'impression Image

Version imprimable

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:

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.

16/12/2014, 15h36
E.M.Kham

Essaye en faisant

Code:

PictureBox1.SizeMode=PictureBoxSizeMode.StretchImage

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:

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:

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

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

Code:

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

18/12/2014, 00h21
AcideBlood

2 pièce(s) jointe(s)

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

original
Pièce jointe 164180

résultat
Pièce jointe 164181
18/12/2014, 08h47
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

1 pièce(s) jointe(s)

bonsoir

MErci pour les infos , aient jamais utiliser les Rectangle ect... , je suis arriver pour le moment a ce résultat :

mais je n'arrive pas à l'avoir avec la hauteur normale. (pleine page)

voici mon code actuel :
Code:

1 2 3 4 5 6 7 Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage Dim HeightPic As Integer = PictureBox1.DisplayRectangle.Height Dim WidthPic As Integer = PictureBox1.DisplayRectangle.Width e.Graphics.DrawImage(PictureBox1.Image, 0, 0, WidthPic, HeightPic) End Sub
Pièce jointe 164333

Cordialement

bonjour
Pour l'ajuster aux dimensions de la page "papier" il faut "querir" les limites de page :
Code:

1 2 3 4 e.Graphics.PageUnit = GraphicsUnit.Display e.Graphics.DrawImage(PictureBox1.Image, 0, 0, e.PageBounds.Width, e.PageBounds.Height)
bon code....

20/12/2014, 11h30
AcideBlood

Bonjour

c'est bon cela fonctionne ..:)

Merci au personne qui mon aider , Cordialement