Imprimer une textbox [Résolu]
cs_mohellebi
- Messages postés
- 103
- Date d'inscription
- mercredi 31 octobre 2007
- Dernière intervention
- 10 juin 2018
- Messages postés
- 378
- Date d'inscription
- samedi 22 septembre 2012
- Dernière intervention
- 13 août 2017
A voir également:
- Printdocument vb.net example
- Imprimer une textbox avec plusieurs lignes - Codes sources - Visual Basic / VB.NET (Imprimante)
- Imprimer un textbox, avec des retour charriot ✓ - Forum - Visual Basic 6
- Imprimer des textbox en respectant leurs dispositions avec une bonne qualité - Forum - Visual Basic 6
- Imprimer un textbox simplement vb2005 - Forum - VB.NET
- Imprimer une textbox multiligne à l'endroit désiré - Forum - Visual Basic
5 réponses
Meilleure réponse
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Bonjour,
- discussion déplacée vers le sous-forum adéquat (VB.Net). Prends s'il te plait dorénavant ce soin.
-
http://www.dreamincode.net/forums/topic/44150-printing-in-vbnet/
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
- discussion déplacée vers le sous-forum adéquat (VB.Net). Prends s'il te plait dorénavant ce soin.
-
http://www.dreamincode.net/forums/topic/44150-printing-in-vbnet/
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 97 internautes ce mois-ci
- Messages postés
- 103
- Date d'inscription
- mercredi 31 octobre 2007
- Dernière intervention
- 10 juin 2018
- Messages postés
- 103
- Date d'inscription
- mercredi 31 octobre 2007
- Dernière intervention
- 10 juin 2018
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Vraiment désolé le mot n'avait rien à faire là, je voulais juste dire "je l'exploiterai demain et ...." une bêtise de ma part
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
- Messages postés
- 103
- Date d'inscription
- mercredi 31 octobre 2007
- Dernière intervention
- 10 juin 2018
Mais non, cs_mohellebi ! ===>> Tu n'étais nullement concerné ! Juste une partie de rigolade entre deux "vieux" ...un dimanche ...
- Messages postés
- 103
- Date d'inscription
- mercredi 31 octobre 2007
- Dernière intervention
- 10 juin 2018
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
wé par fois rigoler est la meilleur chose à faire pour oublier un peu les bugs des programmes
- Messages postés
- 103
- Date d'inscription
- mercredi 31 octobre 2007
- Dernière intervention
- 10 juin 2018
Bonsoir tout le monde,
désolé pour le retard car j'était sur d'autre programme afin d'avancer et laisser ce problème pour la fin
alors, j'ai suivi le tuto que ucfoutu m'avait recommandé étape par étape et j'avoue que j'ai pas totalement pigé , maintenant et après avoir écrit tout le programme dans une classe, reste le teste là je bloque sur l'exécution de cette classe
Merci d'avance pour tout les efforts que vous consacrez aux nombres
voila la classe pour imprimer un label
après j'ai trouvé une petite instruction afin d'imprimer toute la form, mais avec une qualité d'impression trop médiocre
désolé pour le retard car j'était sur d'autre programme afin d'avancer et laisser ce problème pour la fin
alors, j'ai suivi le tuto que ucfoutu m'avait recommandé étape par étape et j'avoue que j'ai pas totalement pigé , maintenant et après avoir écrit tout le programme dans une classe, reste le teste là je bloque sur l'exécution de cette classe
Merci d'avance pour tout les efforts que vous consacrez aux nombres
voila la classe pour imprimer un label
Public Class PCPrint : Inherits Printing.PrintDocument
#Region " Property Variables "
''' <summary>
''' Property variable for the Font the user wishes to use
''' </summary>
''' <remarks></remarks>
Private _font As Font
''' <summary>
''' Property variable for the text to be printed
''' </summary>
''' <remarks></remarks>
Private _text As String
#End Region
#Region " Class Properties "
''' <summary>
''' Property to hold the text that is to be printed
''' </summary>
''' <value></value>
''' <returns>A string</returns>
''' <remarks></remarks>
Public Property TextToPrint() As String
Get
Return _text
End Get
Set(ByVal Value As String)
_text = Value
End Set
End Property
''' <summary>
''' Property to hold the font the users wishes to use
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property PrinterFont() As Font
' Allows the user to override the default font
Get
Return _font
End Get
Set(ByVal Value As Font)
_font = Value
End Set
End Property
#End Region
#Region " Class Constructors "
''' <summary>
''' Empty constructor
''' </summary>
''' <remarks></remarks>
Public Sub New()
'Call the base classes constructor
MyBase.New()
'Instantiate out Text property to an empty string
_text = String.Empty
End Sub
''' <summary>
''' Constructor to initialize our printing object
''' and the text it's supposed to be printing
''' </summary>
''' <param name="str">Text that will be printed</param>
''' <remarks></remarks>
Public Sub New(ByVal str As String)
'Call the base classes constructor
MyBase.New()
'Set our Text property value
_text = str
End Sub
#End Region
#Region " onbeginPrint "
''' <summary>
''' Override the default onbeginPrint method of the PrintDocument Object
''' </summary>
''' <param name="e"></param>
''' <remarks></remarks>
Protected Overrides Sub onbeginPrint(ByVal e As Printing.PrintEventArgs)
' Run base code
MyBase.onbeginPrint(e)
'Check to see if the user provided a font
'if they didnt then we default to Times New Roman
If _font Is Nothing Then
'Create the font we need
_font = New Font("Times New Roman", 10)
End If
End Sub
#End Region
#Region " OnPrintPage "
''' <summary>
''' Override the default OnPrintPage method of the PrintDocument
''' </summary>
''' <param name="e"></param>
''' <remarks>This provides the print logic for our document</remarks>
Protected Overrides Sub OnPrintPage(ByVal e As Printing.PrintPageEventArgs)
' Run base code
MyBase.OnPrintPage(e)
'Declare local variables needed
Static curChar As Integer
Dim printHeight As Integer
Dim printWidth As Integer
Dim leftMargin As Integer
Dim rightMargin As Integer
Dim lines As Int32
Dim chars As Int32
'Set print area size and margins
With MyBase.DefaultPageSettings
printHeight = .PaperSize.Height - .Margins.Top - .Margins.Bottom
printWidth = .PaperSize.Width - .Margins.Left - .Margins.Right
leftMargin = .Margins.Left 'X
rightMargin = .Margins.Top 'Y
End With
'Check if the user selected to print in Landscape mode
'if they did then we need to swap height/width parameters
If MyBase.DefaultPageSettings.Landscape Then
Dim tmp As Integer
tmp = printHeight
printHeight = printWidth
printWidth = tmp
End If
'Now we need to determine the total number of lines
'we're going to be printing
Dim numLines As Int32 = CInt(printHeight / PrinterFont.Height)
'Create a rectangle printing are for our document
Dim printArea As New RectangleF(leftMargin, rightMargin, printWidth, printHeight)
'Use the StringFormat class for the text layout of our document
Dim format As New StringFormat(StringFormatFlags.LineLimit)
'Fit as many characters as we can into the print area
e.Graphics.MeasureString(_text.Substring(RemoveZeros(curChar)), PrinterFont, New SizeF(printWidth, printHeight), format, chars, lines)
'Print the page
e.Graphics.DrawString(_text.Substring(RemoveZeros(curChar)), PrinterFont, Brushes.Black, printArea, format)
'Increase current char count
curChar += chars
'Detemine if there is more text to print, if
'there is the tell the printer there is more coming
If curChar < _text.Length Then
e.HasMorePages = True
Else
e.HasMorePages = False
curChar = 0
End If
End Sub
#End Region
#Region " RemoveZeros "
''' <summary>
''' Function to replace any zeros in the size to a 1
''' Zero's will mess up the printing area
''' </summary>
''' <param name="value">Value to check</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function RemoveZeros(ByVal value As Integer) As Integer
'Check the value passed into the function,
'if the value is a 0 (zero) then return a 1,
'otherwise return the value passed in
Select Case value
Case 0
Return 1
Case Else
Return value
End Select
End Function
#End Region
#Region " PrintDocument "
Public Sub PrintDocument()
'Create an instance of our printer class
Dim printer As New PCPrint()
'Set the font we want to use
printer.PrinterFont = New Font("Verdana", 10)
'Set the TextToPrint property
printer.TextToPrint = Form18.NavireLabel.Text
'Issue print command
printer.Print()
End Sub
#End Region
End Class
après j'ai trouvé une petite instruction afin d'imprimer toute la form, mais avec une qualité d'impression trop médiocre
PrintForm1.PrintAction = Printing.PrintAction.PrintToPrinter
PrintForm1.Print() - Messages postés
- 103
- Date d'inscription
- mercredi 31 octobre 2007
- Dernière intervention
- 10 juin 2018
Merci Zermelo pour ton aide car votre solution d'imprime écran pourra éventuellement me servir dans d'autre cas, cependant voila un code très simple et qui marche nickel
et pour ajuster les objets à imprimer
'Veuillez insérer le code dans le bouton imprimer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'PrintForm1.PrintAction = Printing.PrintAction.PrintToPrinter
'' PrintForm1.Print()
PrintDocument1.PrinterSettings.Copies = 1
PrintDocument1.Print()
Me.Hide()
Timer1.Stop()
End Sub
et pour ajuster les objets à imprimer
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
e.Graphics.DrawString(Label1.Text, Label1.Font, Brushes.Black, 100, 50)
e.Graphics.DrawString(agenceLabel.Text, agenceLabel.Font, Brushes.Black, 100, 100)
e.Graphics.DrawString(Label2.Text, Label2.Font, Brushes.Black, 50, 200)
'e.Graphics.DrawString(NavireLabel.Text, NavireLabel.Font, Brushes.Black, 100, 100)
'e.Graphics.DrawString(trajetLabel.Text, trajetLabel.Font, Brushes.Black, 100, 150)
'e.Graphics.DrawString(datevoyageLabel.Text, datevoyageLabel.Font, Brushes.Black, 100, 200)
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.