Donner instruction pour imprimer
M_Tufux
Messages postés
70
Date d'inscription
Statut
Membre
Dernière intervention
-
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
- Comment signer un pdf sans l'imprimer - 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))