Donner instruction pour imprimer

Fermé
M_Tufux Messages postés 70 Date d'inscription dimanche 11 octobre 2015 Statut Membre Dernière intervention 6 juin 2017 - Modifié par Chris 94 le 7/03/2016 à 16:09
 Mosca - 7 mars 2016 à 17:04
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 :
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:

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))
0