none
forcer le Saut de page RRS feed

  • Question

  • Bonsoir a tous

    je n'arrive pas a faire écrire sur une page 2 ou autre

    Public Class Form1
        Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    
            Dim police As New Font("Courier New", 12, FontStyle.Regular)
            Dim Hauteur_Ligne As Integer = 10
    
            For i = 1 To 100
                e.Graphics.DrawString("Ligne teste" & i, police, Brushes.Black, 10, Hauteur_Ligne)
                Hauteur_Ligne = Hauteur_Ligne + police.GetHeight
                If i = 63 Then
                    Hauteur_Ligne = 10
                    e.HasMorePages = True
                Else
                    e.HasMorePages = False
                End If
    
            Next
        End Sub
        Private Sub Apercu_Click(sender As Object, e As EventArgs) Handles Apercu.Click
            PrintPreviewDialog1.PrintPreviewControl.Zoom = 1
            PrintPreviewDialog1.Width = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width
            PrintPreviewDialog1.Height = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height
            PrintPreviewDialog1.Document = PrintDocument1
            PrintPreviewDialog1.ShowDialog()
        End Sub
    
    
    End Class

    mercredi 17 juin 2020 22:41

Réponses

  • Par exemple =>

    Private nCurrentLine As Integer = 1
    
    Private Sub printDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
        Dim police As Font = New Font("Courier New", 12, System.Drawing.FontStyle.Regular)
        Dim Hauteur_Ligne As Integer = 10
        While nCurrentLine <= 100
            e.Graphics.DrawString("Ligne test " & nCurrentLine, police, System.Drawing.Brushes.Black, 10, Hauteur_Ligne)
            Hauteur_Ligne = (Hauteur_Ligne + CInt(police.GetHeight()))
            If nCurrentLine = 63 Then
                Exit While
            Else
                e.HasMorePages = False
            End If
            nCurrentLine += 1
        End While
        If nCurrentLine = 63 Then
            nCurrentLine += 1
            e.HasMorePages = True
        End If
    End Sub        
            
            
    Dim printDocument1 As Printing.PrintDocument = New Printing.PrintDocument()
    AddHandler printDocument1.PrintPage, AddressOf printDocument1_PrintPage
    Dim printDialog1 As System.Windows.Forms.PrintDialog = New System.Windows.Forms.PrintDialog()
    Dim printPreviewDialog1 As PrintPreviewDialog = New PrintPreviewDialog()
    printDialog1.AllowSelection = True
    printDialog1.AllowSomePages = True
    If (printDialog1.ShowDialog = DialogResult.OK) Then
        printDocument1.PrinterSettings = printDialog1.PrinterSettings
        printPreviewDialog1.PrintPreviewControl.Zoom = 1
        printPreviewDialog1.Width = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width
        printPreviewDialog1.Height = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height
        printPreviewDialog1.Document = printDocument1
        Dim dr As DialogResult = printPreviewDialog1.ShowDialog()
    End If

    • Marqué comme réponse Orleandeux jeudi 18 juin 2020 09:05
    jeudi 18 juin 2020 08:49

Toutes les réponses

  • excuser moi

    merci d'avance

    mercredi 17 juin 2020 22:43
  • Par exemple =>

    Private nCurrentLine As Integer = 1
    
    Private Sub printDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
        Dim police As Font = New Font("Courier New", 12, System.Drawing.FontStyle.Regular)
        Dim Hauteur_Ligne As Integer = 10
        While nCurrentLine <= 100
            e.Graphics.DrawString("Ligne test " & nCurrentLine, police, System.Drawing.Brushes.Black, 10, Hauteur_Ligne)
            Hauteur_Ligne = (Hauteur_Ligne + CInt(police.GetHeight()))
            If nCurrentLine = 63 Then
                Exit While
            Else
                e.HasMorePages = False
            End If
            nCurrentLine += 1
        End While
        If nCurrentLine = 63 Then
            nCurrentLine += 1
            e.HasMorePages = True
        End If
    End Sub        
            
            
    Dim printDocument1 As Printing.PrintDocument = New Printing.PrintDocument()
    AddHandler printDocument1.PrintPage, AddressOf printDocument1_PrintPage
    Dim printDialog1 As System.Windows.Forms.PrintDialog = New System.Windows.Forms.PrintDialog()
    Dim printPreviewDialog1 As PrintPreviewDialog = New PrintPreviewDialog()
    printDialog1.AllowSelection = True
    printDialog1.AllowSomePages = True
    If (printDialog1.ShowDialog = DialogResult.OK) Then
        printDocument1.PrinterSettings = printDialog1.PrinterSettings
        printPreviewDialog1.PrintPreviewControl.Zoom = 1
        printPreviewDialog1.Width = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width
        printPreviewDialog1.Height = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height
        printPreviewDialog1.Document = printDocument1
        Dim dr As DialogResult = printPreviewDialog1.ShowDialog()
    End If

    • Marqué comme réponse Orleandeux jeudi 18 juin 2020 09:05
    jeudi 18 juin 2020 08:49
  • Ho Castorix31 répond toujours a l'appel pour les gents en difficulté merci

    ton code est certainement mieux que le mien

    j'ai galérer cette nuit je m’en suis sortie avec quelque exemples et voici ce-si

    avec marge et numérotation comme je le voulais et sa marche

    tout cela pour sortir a l'imprimante un DataGridView co

    Public Class Form1
    
    
        Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
            '------------- tout est déclarer ici ----------------
            Dim Position_de_ligne As Integer = e.PageSettings.Margins.Top
            Static Dim I As Int32 = 0
            Static Dim Page As Int32 = 0
            Static Dim GPoint As New StringFormat
            Static Dim PrintFont As New Font("Arial", 12, FontStyle.Regular, GraphicsUnit.Point)
            '-----------------------------------------------------
    
    
            e.Graphics.DrawRectangle(Pens.Red, e.PageSettings.Margins.Right, e.PageSettings.Margins.Top, e.PageBounds.Width - (e.PageSettings.Margins.Right + e.PageSettings.Margins.Left), e.PageBounds.Height - (e.PageSettings.Margins.Top + e.PageSettings.Margins.Bottom))
    
            Do While I < 200
    
                Position_de_ligne += 1
    
                e.Graphics.DrawString("Ligne Imprimer N° " & CStr(I), PrintFont, Brushes.Black, e.PageSettings.Margins.Left, Position_de_ligne, GPoint)
                If Position_de_ligne + PrintFont.GetHeight > e.PageBounds.Height - (e.PageSettings.Margins.Top + e.PageSettings.Margins.Bottom) + 100 Then
    
    
                    e.HasMorePages = True
                    Position_de_ligne = 0
                    I += 1
                    Page += 1
                    e.Graphics.DrawString("Page " & Page, PrintFont, Brushes.Black, e.PageBounds.Width - (e.PageSettings.Margins.Right + e.PageSettings.Margins.Left) + 50, e.PageBounds.Height - (e.PageSettings.Margins.Top + e.PageSettings.Margins.Bottom) + 100, GPoint)
                    Return
    
                End If
                Position_de_ligne = Position_de_ligne + PrintFont.GetHeight
                I += 1
            Loop
    
            Page += 1
            e.Graphics.DrawString("Page " & Page, PrintFont, Brushes.Black, e.PageBounds.Width - (e.PageSettings.Margins.Right + e.PageSettings.Margins.Left) + 50, e.PageBounds.Height - (e.PageSettings.Margins.Top + e.PageSettings.Margins.Bottom) + 100, GPoint)
        End Sub
        Private Sub Apercu_Click(sender As Object, e As EventArgs) Handles Apercu.Click
            PrintPreviewDialog1.PrintPreviewControl.Zoom = 1
            PrintPreviewDialog1.Width = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width
            PrintPreviewDialog1.Height = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height
            PrintPreviewDialog1.Document = PrintDocument1
            PrintPreviewDialog1.ShowDialog()
        End Sub
    
    
    End Class
    

    mme je le voudrais

    si sa intéresse quelqu'un je le posterais je ne sais pas ou et comment

    je le poste pour les personnes qui  voudrais voir

    encor merci Castorix31

    jeudi 18 juin 2020 09:23
  • Bonjour je poste l'impression de la grille

    le code et image

    si sa intéresse

    Public Class Form1
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    
            For i As Integer = 0 To 4
                Titre_Designation_Applique(Grille, i, "Titre" & CStr(i))
            Next
            'Place des ligne dans le tableau
            Dim chaine As String = ""
            For i As Integer = 0 To 500
                chaine = "0-" & i & ",1-" & i & ",2-" & i & ",3-" & i & ",4-" & i
                Ligne_Place(Grille, i, chaine, ",")
            Next
    
    
            Grille.Rows(1).Height = 100
            Grille.Columns(1).Width = 200
    
            Teste_Taille.Visible = False
            Remplier_Liste_Polices()
            Remplier_Liste_Taille_avec_Teste()
    
        End Sub
    
        Private Sub Remplier_Liste_Polices()
            Dim fonte() As FontFamily = System.Drawing.FontFamily.Families
            Police_Liste.Items.Clear()
            For i As Integer = 1 To fonte.Count - 1 'Fontcount=nombre de polices installées
                Police_Liste.Items.Add(fonte(i).Name)
            Next i
            Police_Liste.SelectedIndex = 2
        End Sub
        Private Sub Remplier_Liste_Taille()
            Tailles_Liste.Items.Clear()
            For i As Integer = 1 To 100
                For z As Integer = 0 To 9
                    Tailles_Liste.Items.Add(i & "," & z)
                Next
            Next
            Tailles_Liste.SelectedIndex = 12
        End Sub
        Private Sub Remplier_Liste_Taille_avec_Teste()
            Tailles_Liste.SuspendLayout()
            If Tailles_Liste.SelectedIndex > -1 Then
                Tailles_Liste.Items.Clear()
                Dim TMP As String = Police_Liste.Items(Police_Liste.SelectedIndex)
                Dim TMPTaille As String = "1"
                Teste_Taille.Text = Saisie_Exemple.Text
                Teste_Taille.Font = New Font(TMP, TMPTaille)
            End If
            Dim TesteWidthOld As String = Teste_Taille.Width
            Dim TesteWidth As String = ""
            Tailles_Liste.Items.Add("1,0")
            For i As Integer = 1 To 50
                For z As Integer = 0 To 9
                    TesteWidth = i & "," & z
                    Dim TMP2 As String = Police_Liste.Items(Police_Liste.SelectedIndex)
                    Teste_Taille.Font = New Font(TMP2, TesteWidth)
                    If Teste_Taille.Width <> TesteWidthOld Then
                        Tailles_Liste.Items.Add(i & "," & z)
                        TesteWidthOld = Teste_Taille.Width
                    End If
                Next
            Next
            Tailles_Liste.ResumeLayout()
        End Sub
        Private Sub Apercu_Polices()
            If Police_Liste.SelectedIndex > -1 And Tailles_Liste.SelectedIndex > -1 Then
                Dim TMP As String = Police_Liste.Items(Police_Liste.SelectedIndex)
                Dim TMPTaille As String = Tailles_Liste.Items(Tailles_Liste.SelectedIndex)
                Apercue.Text = Saisie_Exemple.Text
                Apercue.Font = New Font(TMP, TMPTaille)
            End If
        End Sub
    
        Private Sub Police_Liste_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Police_Liste.SelectedIndexChanged
    
            Polices.Text = Police_Liste.Items(Police_Liste.SelectedIndex)
            Apercu_Polices()
        End Sub
        Private Sub Tailles_Liste_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Tailles_Liste.SelectedIndexChanged
            Taille_Police.Text = Tailles_Liste.Items(Tailles_Liste.SelectedIndex)
            Apercu_Polices()
        End Sub
        Private Sub Saisie_Exemple_TextChanged(sender As Object, e As EventArgs) Handles Saisie_Exemple.TextChanged
            Apercu_Polices()
        End Sub
        Private Sub Recherche_TextChanged(sender As Object, e As EventArgs) Handles Polices.TextChanged
            Dim index As Integer
            index = Police_Liste.FindString(Polices.Text)
            'ListBox1.SelectedIndex = index
            If index Then
                index = Police_Liste.FindString(Polices.Text)
                Police_Liste.SelectedIndex = index
            End If
        End Sub
    
        Private Sub Recherche_Taille_TextChanged(sender As Object, e As EventArgs) Handles Taille_Police.TextChanged
            Dim index As Integer
            index = Police_Liste.FindString(Taille_Police.Text)
            'ListBox1.SelectedIndex = index
            If index Then
                index = Tailles_Liste.FindString(Taille_Police.Text)
                Tailles_Liste.SelectedIndex = index
            End If
    
        End Sub
        Public Sub Titre_Designation_Applique(GRI As Object, Col As Integer, Optional Chaine As String = "Non défine")
            If Col >= GRI.ColumnCount Then
                GRI.ColumnCount = GRI.ColumnCount + 1
            End If
            GRI.Columns(Col).HeaderText = Chaine
        End Sub
        Public Sub Ligne_Place(GRI As Object, Row As Integer, Chaine As String, Optional sep As String = vbTab)
            'Chaine = Ajoute_Fin_Chaine_Si(Chaine, vbTab)
            Affichage_Off(GRI)
            If Row > GRI.RowCount - 2 Then
                GRI.RowCount = (Row + 2)
            End If
            Dim X1 As Integer = 1
            Dim X2 As Integer = InStr(X1, UCase(Chaine), sep)
            Dim I = -1
            Dim tmp As String = ""
            While X2 > 0
                tmp = Microsoft.VisualBasic.Mid(Chaine, X1, X2 - X1)
                I = I + 1
                If I > GRI.ColumnCount - 1 Then
                    GRI.ColumnCount = GRI.ColumnCount + 1
                End If
                GRI(I, Row).Value = tmp
                X1 = X2 + Len(sep)
                X2 = InStr(X1, UCase(Chaine), sep)
            End While
            Affichage_On(GRI)
        End Sub
        Public Sub Affichage_Off(GRI As Object)
            GRI.SuspendLayout 'annule de  l'affichage
        End Sub
        Public Sub Affichage_On(GRI As Object)
            GRI.ResumeLayout  'reprise de  l'affichage
        End Sub
    
        Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    
            Static Dim Z As Int32 = 0
            Static Dim I As Int32 = 0
            Static Dim Page As Int32 = 0
            Static Dim GPoint As New StringFormat
            Static Dim Left, Top, Width, Height As Integer
    
            Left = e.PageSettings.Margins.Left + 4
            Top = e.PageSettings.Margins.Left + 2
            Width = Grille.Columns(0).Width
            Height = Grille.Rows(0).Height
            e.Graphics.DrawRectangle(Pens.Red, e.PageSettings.Margins.Right, e.PageSettings.Margins.Top, e.PageBounds.Width - (e.PageSettings.Margins.Right + e.PageSettings.Margins.Left), e.PageBounds.Height - (e.PageSettings.Margins.Top + e.PageSettings.Margins.Bottom))
    
            Dim blackPenrec As New Pen(Color.Black, 1) 'couleur , epesseur du trais
            Do While Z < Grille.RowCount
                I = 0
                Do While I < Grille.ColumnCount
    
                    Height = Grille.Rows(Z).Height
                    Width = Grille.Columns(I).Width
                    Dim rect As New Rectangle(Left, Top, Width, Height)
                    e.Graphics.DrawRectangle(blackPenrec, rect)
                    e.Graphics.DrawString(Grille(I, Z).Value, New Font(Polices.Text, Taille_Police.Text), New SolidBrush(Color.Black), Left, Top)
                    Left = Left + Width
                    I += 1
                Loop
                Left = e.PageSettings.Margins.Left + 4
                Top = Top + Height
                Z += 1
    
                If Top + Height > e.PageBounds.Height - (e.PageSettings.Margins.Top + e.PageSettings.Margins.Bottom) + 100 Then
                    e.HasMorePages = True
                    Top = e.PageSettings.Margins.Left + 2
                    I += 1
                    Page += 1
                    e.Graphics.DrawString("Page " & Page, New Font(Polices.Text, Taille_Police.Text), Brushes.Black, e.PageBounds.Width - (e.PageSettings.Margins.Right + e.PageSettings.Margins.Left) + 50, e.PageBounds.Height - (e.PageSettings.Margins.Top + e.PageSettings.Margins.Bottom) + 100, GPoint)
                    Return
    
                End If
    
    
            Loop
            Page += 1
            e.Graphics.DrawString("Page " & Page, New Font(Polices.Text, Taille_Police.Text), Brushes.Black, e.PageBounds.Width - (e.PageSettings.Margins.Right + e.PageSettings.Margins.Left) + 50, e.PageBounds.Height - (e.PageSettings.Margins.Top + e.PageSettings.Margins.Bottom) + 100, GPoint)
            Z = 0 : I = 0
        End Sub
    
    
    
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            If zom.Text <= 0 Then Exit Sub                                                          ' si le zoom est a zéro ou inferieur =sortie exit sub
            PrintPreviewDialog1.PrintPreviewControl.Zoom = zom.Text                                 'zoom pour affichage défini par textBox (zom.Text) dans form1
            PrintPreviewDialog1.Width = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width      'Applique le plaine ecran
            PrintPreviewDialog1.Height = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height    'Applique le plaine ecran
    
            'PrintDocument1.DefaultPageSettings.Landscape = True                                     'Paysage
            PrintDocument1.DefaultPageSettings.Landscape = False                                   'portrait
    
            PrintPreviewDialog1.Document = PrintDocument1
            PrintPreviewDialog1.ShowDialog()
        End Sub
    
        Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            zom.Text = zom.Text + 0.1
            'Button1_Click(Me, New EventArgs())                                                     'débloquer si l'on veut lencer directe
        End Sub
    
    End Class
    

    <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    Partial Class Form1
        Inherits System.Windows.Forms.Form
    
        'Form remplace la méthode Dispose pour nettoyer la liste des composants.
        <System.Diagnostics.DebuggerNonUserCode()> _
        Protected Overrides Sub Dispose(ByVal disposing As Boolean)
            Try
                If disposing AndAlso components IsNot Nothing Then
                    components.Dispose()
                End If
            Finally
                MyBase.Dispose(disposing)
            End Try
        End Sub
    
        'Requise par le Concepteur Windows Form
        Private components As System.ComponentModel.IContainer
    
        'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
        'Elle peut être modifiée à l'aide du Concepteur Windows Form.  
        'Ne la modifiez pas à l'aide de l'éditeur de code.
        <System.Diagnostics.DebuggerStepThrough()> _
        Private Sub InitializeComponent()
            Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
            Me.Grille = New System.Windows.Forms.DataGridView()
            Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
            Me.Column2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
            Me.Column3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
            Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument()
            Me.PrintPreviewDialog1 = New System.Windows.Forms.PrintPreviewDialog()
            Me.PrintDialog1 = New System.Windows.Forms.PrintDialog()
            Me.Button1 = New System.Windows.Forms.Button()
            Me.zom = New System.Windows.Forms.TextBox()
            Me.Button2 = New System.Windows.Forms.Button()
            Me.Label3 = New System.Windows.Forms.Label()
            Me.Label4 = New System.Windows.Forms.Label()
            Me.Taille_Police = New System.Windows.Forms.TextBox()
            Me.Saisie_Exemple = New System.Windows.Forms.TextBox()
            Me.Polices = New System.Windows.Forms.TextBox()
            Me.Tailles_Liste = New System.Windows.Forms.ListBox()
            Me.Police_Liste = New System.Windows.Forms.ListBox()
            Me.Teste_Taille = New System.Windows.Forms.Label()
            Me.Apercue = New System.Windows.Forms.Label()
            Me.Label1 = New System.Windows.Forms.Label()
            CType(Me.Grille, System.ComponentModel.ISupportInitialize).BeginInit()
            Me.SuspendLayout()
            '
            'Grille
            '
            Me.Grille.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
            Me.Grille.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Column1, Me.Column2, Me.Column3})
            Me.Grille.Location = New System.Drawing.Point(677, 32)
            Me.Grille.Name = "Grille"
            Me.Grille.Size = New System.Drawing.Size(364, 177)
            Me.Grille.TabIndex = 1
            '
            'Column1
            '
            Me.Column1.HeaderText = "Column1"
            Me.Column1.Name = "Column1"
            '
            'Column2
            '
            Me.Column2.HeaderText = "Column2"
            Me.Column2.Name = "Column2"
            '
            'Column3
            '
            Me.Column3.HeaderText = "Column3"
            Me.Column3.Name = "Column3"
            '
            'PrintDocument1
            '
            '
            'PrintPreviewDialog1
            '
            Me.PrintPreviewDialog1.AutoScrollMargin = New System.Drawing.Size(0, 0)
            Me.PrintPreviewDialog1.AutoScrollMinSize = New System.Drawing.Size(0, 0)
            Me.PrintPreviewDialog1.ClientSize = New System.Drawing.Size(400, 300)
            Me.PrintPreviewDialog1.Enabled = True
            Me.PrintPreviewDialog1.Icon = CType(resources.GetObject("PrintPreviewDialog1.Icon"), System.Drawing.Icon)
            Me.PrintPreviewDialog1.Name = "PrintPreviewDialog1"
            Me.PrintPreviewDialog1.Visible = False
            '
            'PrintDialog1
            '
            Me.PrintDialog1.UseEXDialog = True
            '
            'Button1
            '
            Me.Button1.Location = New System.Drawing.Point(487, 132)
            Me.Button1.Name = "Button1"
            Me.Button1.Size = New System.Drawing.Size(136, 87)
            Me.Button1.TabIndex = 2
            Me.Button1.Text = "Apercu"
            Me.Button1.UseVisualStyleBackColor = True
            '
            'zom
            '
            Me.zom.Location = New System.Drawing.Point(501, 102)
            Me.zom.Name = "zom"
            Me.zom.Size = New System.Drawing.Size(80, 20)
            Me.zom.TabIndex = 3
            Me.zom.Text = "1"
            '
            'Button2
            '
            Me.Button2.Location = New System.Drawing.Point(587, 97)
            Me.Button2.Name = "Button2"
            Me.Button2.Size = New System.Drawing.Size(22, 29)
            Me.Button2.TabIndex = 4
            Me.Button2.Text = "+"
            Me.Button2.UseVisualStyleBackColor = True
            '
            'Label3
            '
            Me.Label3.AutoSize = True
            Me.Label3.Location = New System.Drawing.Point(303, 44)
            Me.Label3.Name = "Label3"
            Me.Label3.Size = New System.Drawing.Size(37, 13)
            Me.Label3.TabIndex = 18
            Me.Label3.Text = "Tailles"
            '
            'Label4
            '
            Me.Label4.AutoSize = True
            Me.Label4.Location = New System.Drawing.Point(32, 44)
            Me.Label4.Name = "Label4"
            Me.Label4.Size = New System.Drawing.Size(97, 13)
            Me.Label4.TabIndex = 19
            Me.Label4.Text = "Recherche Polices"
            '
            'Taille_Police
            '
            Me.Taille_Police.Location = New System.Drawing.Point(294, 60)
            Me.Taille_Police.Name = "Taille_Police"
            Me.Taille_Police.Size = New System.Drawing.Size(57, 20)
            Me.Taille_Police.TabIndex = 15
            Me.Taille_Police.Text = "8,3"
            '
            'Saisie_Exemple
            '
            Me.Saisie_Exemple.Location = New System.Drawing.Point(36, 246)
            Me.Saisie_Exemple.Name = "Saisie_Exemple"
            Me.Saisie_Exemple.Size = New System.Drawing.Size(315, 20)
            Me.Saisie_Exemple.TabIndex = 16
            Me.Saisie_Exemple.Text = "Exemples de Polices"
            '
            'Polices
            '
            Me.Polices.Location = New System.Drawing.Point(35, 60)
            Me.Polices.Name = "Polices"
            Me.Polices.Size = New System.Drawing.Size(253, 20)
            Me.Polices.TabIndex = 17
            '
            'Tailles_Liste
            '
            Me.Tailles_Liste.FormattingEnabled = True
            Me.Tailles_Liste.Location = New System.Drawing.Point(294, 82)
            Me.Tailles_Liste.Name = "Tailles_Liste"
            Me.Tailles_Liste.Size = New System.Drawing.Size(57, 147)
            Me.Tailles_Liste.TabIndex = 13
            '
            'Police_Liste
            '
            Me.Police_Liste.FormattingEnabled = True
            Me.Police_Liste.Location = New System.Drawing.Point(35, 82)
            Me.Police_Liste.Name = "Police_Liste"
            Me.Police_Liste.Size = New System.Drawing.Size(254, 147)
            Me.Police_Liste.TabIndex = 14
            '
            'Teste_Taille
            '
            Me.Teste_Taille.AutoSize = True
            Me.Teste_Taille.Location = New System.Drawing.Point(375, 67)
            Me.Teste_Taille.Name = "Teste_Taille"
            Me.Teste_Taille.Size = New System.Drawing.Size(67, 13)
            Me.Teste_Taille.TabIndex = 20
            Me.Teste_Taille.Text = "Teste-Tailles"
            '
            'Apercue
            '
            Me.Apercue.AutoSize = True
            Me.Apercue.Location = New System.Drawing.Point(32, 287)
            Me.Apercue.Name = "Apercue"
            Me.Apercue.Size = New System.Drawing.Size(39, 13)
            Me.Apercue.TabIndex = 21
            Me.Apercue.Text = "Label1"
            '
            'Label1
            '
            Me.Label1.AutoSize = True
            Me.Label1.Location = New System.Drawing.Point(523, 86)
            Me.Label1.Name = "Label1"
            Me.Label1.Size = New System.Drawing.Size(34, 13)
            Me.Label1.TabIndex = 21
            Me.Label1.Text = "Zoom"
            '
            'Form1
            '
            Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
            Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
            Me.ClientSize = New System.Drawing.Size(1059, 306)
            Me.Controls.Add(Me.Label1)
            Me.Controls.Add(Me.Apercue)
            Me.Controls.Add(Me.Teste_Taille)
            Me.Controls.Add(Me.Label3)
            Me.Controls.Add(Me.Label4)
            Me.Controls.Add(Me.Taille_Police)
            Me.Controls.Add(Me.Saisie_Exemple)
            Me.Controls.Add(Me.Polices)
            Me.Controls.Add(Me.Tailles_Liste)
            Me.Controls.Add(Me.Police_Liste)
            Me.Controls.Add(Me.Button2)
            Me.Controls.Add(Me.zom)
            Me.Controls.Add(Me.Button1)
            Me.Controls.Add(Me.Grille)
            Me.Name = "Form1"
            Me.Text = "Form1"
            CType(Me.Grille, System.ComponentModel.ISupportInitialize).EndInit()
            Me.ResumeLayout(False)
            Me.PerformLayout()
    
        End Sub
    
        Friend WithEvents Grille As DataGridView
        Friend WithEvents Column1 As DataGridViewTextBoxColumn
        Friend WithEvents Column2 As DataGridViewTextBoxColumn
        Friend WithEvents Column3 As DataGridViewTextBoxColumn
        Friend WithEvents PrintDocument1 As Printing.PrintDocument
        Friend WithEvents PrintPreviewDialog1 As PrintPreviewDialog
        Friend WithEvents PrintDialog1 As PrintDialog
        Friend WithEvents Button1 As Button
        Friend WithEvents zom As TextBox
        Friend WithEvents Button2 As Button
        Friend WithEvents Label3 As Label
        Friend WithEvents Label4 As Label
        Friend WithEvents Taille_Police As TextBox
        Friend WithEvents Saisie_Exemple As TextBox
        Friend WithEvents Polices As TextBox
        Friend WithEvents Tailles_Liste As ListBox
        Friend WithEvents Police_Liste As ListBox
        Friend WithEvents Teste_Taille As Label
        Friend WithEvents Apercue As Label
        Friend WithEvents Label1 As Label
    End Class
    

    jeudi 18 juin 2020 12:10