Donner instruction pour imprimer
M_Tufux
Messages postés
85
Statut
Membre
-
Mosca -
Mosca -
Bonjour,
J'ai déjà posté un message aujourd'hui car je n'arrivais pas à faire reconnaître mon port COM à un programme VB codé sur visual studio. Mon problème maintenant est de trouver comment lancer une impression sur mon imprimante. Est-ce une simple commande ou autre chose?
Je vous montre mon code :
Est-ce que quelqu'un pourrait m'aider SVP?
J'ai déjà posté un message aujourd'hui car je n'arrivais pas à faire reconnaître mon port COM à un programme VB codé sur visual studio. Mon problème maintenant est de trouver comment lancer une impression sur mon imprimante. Est-ce une simple commande ou autre chose?
Je vous montre mon code :
Public Class Form1
Sub SendSerialData(ByVal data As String)
' Send strings to a serial port.
Try
Using com1 As IO.Ports.SerialPort =
My.Computer.Ports.OpenSerialPort("COM1")
com1.WriteLine(data)
MsgBox(com1.)
End Using
Catch ex As Exception
MsgBox("Connextion échouée")
End Try
End Sub
Private Sub Valider_Click(sender As Object, e As EventArgs) Handles Valider.Click
Dim Text As String
Text = tbxVal.Text
SendSerialData(Text)
End Sub
End Class
Est-ce que quelqu'un pourrait m'aider SVP?
A voir également:
- Donner instruction pour imprimer
- Journal de naissance gratuit a imprimer - Télécharger - Histoire & Religion
- Comment imprimer en a5 - Guide
- Imprimer tableau excel sur une page - Guide
- Parole de chanson francaise gratuite à imprimer - Télécharger - Vie quotidienne
- Imprimer en miroir word - Guide
1 réponse
Bonjour
Ce que tu as écrit est correct. Le texte est bien parti à l'imprimante.
Mais il faut maintenant éjecter la feuille (pour vider la mémoire tampon de l'imprimante). C'est le caractère vbFormFeed ou chr(12) qui ejecte la feuille.
Penser aussi à vbCrLf pour Retour à la Ligne.
exemple
SendSerialData("Essai d'impression ligne 1" & vbCrLf)
'équivalent
'SendSerialData("Essai d'impression ligne 1" & chr(13) & chr(10))
SendSerialData("Essai d'impression ligne 2" & vbFormFeed)
'équivalent
'SendSerialData("Essai d'impression ligne 2" & chr(12))
Ce que tu as écrit est correct. Le texte est bien parti à l'imprimante.
Mais il faut maintenant éjecter la feuille (pour vider la mémoire tampon de l'imprimante). C'est le caractère vbFormFeed ou chr(12) qui ejecte la feuille.
Penser aussi à vbCrLf pour Retour à la Ligne.
exemple
SendSerialData("Essai d'impression ligne 1" & vbCrLf)
'équivalent
'SendSerialData("Essai d'impression ligne 1" & chr(13) & chr(10))
SendSerialData("Essai d'impression ligne 2" & vbFormFeed)
'équivalent
'SendSerialData("Essai d'impression ligne 2" & chr(12))