j'arrive à imprimer sans trop de pb mais j'ai actuellement 2 Grop pb
1° je n'arrive pas à faire des saut de page je pensais que c'etait l'expression : e.HasMorePages = True mais ca ne fct pas alors je me demande si qlqu'un pourrait me dire comme faire pour faire un saut de page ?
2° quand je fais lance 2 fois cette instruction : AddHandler pd.PrintPage, AddressOf Me.pd_printpage
pd.Print()
dans ce cas j'ai une seconde page mais j'ai le text que j'ai imprimer sur la 1er page sur la seconde donc comment faire pour ne pas avoir ce text !!
Merci de votre aide
Private Sub Page_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
test()
End Sub
Public Sub test()
Dim a As Long
Dim printfont As Font
Dim test As String
For Each test In PrinterSettings.InstalledPrinters
test1.Items.Add(test)
Next
End Sub
Private Sub pd_printpage(ByVal sender As Object,
ByVal e As Printing.PrintPageEventArgs)
Dim printfont As New Font("Arial", 10)
e.HasMorePages = True
e.Graphics.DrawString("Test", printfont,
Brushes.Blue, 10, 10)
e.HasMorePages = False
End Sub
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Dim pd As New Printing.PrintDocument()
pd.DocumentName = "TEST"
pd.PrinterSettings.PrinterName =
test1.SelectedItem.Text
AddHandler pd.PrintPage, AddressOf Me.pd_printpage
pd.Print()
End Sub
.