none
Comment changer de format de feuille lors le l'impression RRS feed

  • Question

  • Je veux changer de format de feuille lorsque j'imprime, passer de Letter (8.5 x 11) à Legal (8.5 x 14).

    voici mon code:

     

    Private Sub BtnImprimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnImprimer.Click

    Dim vDoc_Liste As New System.Drawing.Printing.PrintDocument

    Dim vSize As New Printing.PaperSize

     

    vSize.RawKind = Printing.PaperKind.Legal

    vDoc_Liste.PrinterSettings.DefaultPageSettings.PaperSize = vSize

    vDoc_Liste.DefaultPageSettings.Landscape = True

    vDoc_Liste.DefaultPageSettings.Margins.Top = 10

     

    ' Pour test seulement

    Debug.WriteLine(vDoc_Liste.DefaultPageSettings.Bounds)

    Debug.WriteLine(vDoc_Liste.DefaultPageSettings.PrintableArea.Size)

    ' Handle the page events

    AddHandler vDoc_Liste.PrintPage, AddressOf Me.pDoc_Liste_PrintPage

    vDoc_Liste.Print()

    ' Remove the page handler

    RemoveHandler vDoc_Liste.PrintPage, AddressOf Me.pDoc_Liste_PrintPage

    vDoc_Liste.Dispose()

    vSize = Nothing

    End Sub

     

    Private Sub pDoc_Liste_PrintPage(ByVal sender As Object, ByVal ev As Printing.PrintPageEventArgs)

    ev.Graphics.DrawString("Test", New Font("Lucida Console", 10, FontStyle.Regular), Brushes.Black, 75, 5)

    ev.HasMorePages = False

    End Sub

     

    Avec ce code, la feuille s'imprimme mais en 8.5 x 11 au lieu de 8.5 x 14

     

    merci !

    vendredi 30 mai 2008 11:45

Réponses