Imprimer format a4

Version imprimable

Imprimer format a4

bonjour tout lmonde j'ai besoin de votre aide , jarrive pas a imprimer ma forme
sur une feuille format a4 voici les probleme rencontré
1-j'arrive pas a imprimer sur toute la feuille il ya un decalage (on voit trés bien la couleur blanche de la feuille alors que moi je veux que le background du formulaire
2-j'arrive pas a avoir tout le contenu du formulaire voici mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 Private Sub imprimer()
        Try
            Cursor.Current = Cursors.WaitCursor
            With Me.PrintForm2
                .PrintAction = Printing.PrintAction.PrintToPreview
                .PrinterSettings.DefaultPageSettings.Landscape = false
                .Print(Me, PowerPacks.Printing.PrintForm.PrintOption.ClientAreaOnly)
            End With
            Cursor.Current = Cursors.Default
        Catch ex As Exception
            Cursor.Current = Cursors.Default
            MsgBox(ex.ToString, MsgBoxStyle.Critical, "erreur")
        End Try
    End Sub
 
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
 
        Call imprimer()
 
    End Sub

Bonjour,
Tu essaye ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Try
            Cursor.Current = Cursors.WaitCursor
            With Me.PrintForm1
                .PrintAction = Printing.PrintAction.PrintToPreview
                .PrinterSettings.DefaultPageSettings.Landscape = False
 
                Dim MyMargins As New Margins
                With MyMargins
                    .Left = 0
                    .Right = 0
                    .Top = 0
                    .Bottom = 0
                End With
                .PrinterSettings.DefaultPageSettings.Margins = MyMargins
                .Print(Me, PowerPacks.Printing.PrintForm.PrintOption.ClientAreaOnly)
            End With
            Cursor.Current = Cursors.Default
        Catch ex As Exception
            Cursor.Current = Cursors.Default
            MsgBox(ex.ToString, MsgBoxStyle.Critical, "erreur")
        End Try

Ps : tu dois mettre en haut de ta form :

Code:

imports System.Drawing.Printing

Penses à mettre résolu ;)

18/08/2013, 03h08
king2070

beau travail mai le probleme maintenant c'est qu'il ya une partie blanche en dessous sil vous plai je fai quoi??