Changer d'imprimante

Question

Bonjour, 

J'ai beau tout retourner, je n'y arrive pas.

Je souhaiterais imprimer sur une ticketteuse Epson (en USB), alors que mon imprimante par défaut est une HP (sous réseau.

J'utilise pourtant :

Imports System.IO
Imports System.Math
Imports System.Text.RegularExpressions
Imports System.Drawing
Imports System.Drawing.Text
Imports System.Drawing.Image
Imports System.Drawing.Printing
Imports System.Drawing.Printing.PrinterSettings


Le nom repris dans les imprimantes de windows est
"EPSON TM-T88IV ReceiptE4".
Pouvez-vous m'aider à sortir de mon bourbier ?
D'avance, un immense merci.

Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim printer As String = "EPSON TM-T88IV ReceiptE4"
        PrintDocument1.PrinterSettings.PrinterName = printer

Dim fontCAP As PrivateFontCollection = New PrivateFontCollection
        fontCAP.AddFontFile(locfichier10 & "code128.ttf")
        Dim fontEAN As New Font(fontCAP.Families(0), 60, FontStyle.Regular)
        Dim font01 = New Font("Arial", 10)

rtbTicket.Text = "Bonjour"

e.Graphics.DrawString(rtbTicket.Text, font01, Brushes.Black, 0, 25)
        e.Graphics.DrawString(rtbTicket.Text, fontEAN, Brushes.Black, 0, 55)
    End Sub


jyd

jytest · Answer

Je viens d'avoir la preuve que mon nom d'imprimante est bien le bon !

Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim printer As String = "EPSON TM-T88IV ReceiptE4"
        PrintDocument1.PrinterSettings.PrinterName = printer

Dim pkInstalledPrinters As String
        For i As Integer = 0 To PrinterSettings.InstalledPrinters.Count - 1
            pkInstalledPrinters = PrinterSettings.InstalledPrinters.Item(i)
            If pkInstalledPrinters = printer Then
                MsgBox("ok")
            End If
        Next i

Dim fontCAP As PrivateFontCollection = New PrivateFontCollection
        fontCAP.AddFontFile(locfichier10 & "code128.ttf")
        Dim fontEAN As New Font(fontCAP.Families(0), 60, FontStyle.Regular)
        Dim font01 = New Font("Arial", 10)

rtbTicket.Text = "Bonjour"

e.Graphics.DrawString(rtbTicket.Text, font01, Brushes.Black, 0, 25)
        e.Graphics.DrawString(rtbTicket.Text, fontEAN, Brushes.Black, 0, 55)
    End Sub


jyd

jytest · Answer

Par contre si je change l'imprimante par défaut depuis le panneau de configuration windows, tout s'imprime bien...
Oui mais voilà..
je ne veux pas le faire depuis windows.

Avez-vous (rien que) une petite idée svp ? 
 
jyd

ucfoutu · Answer

Bonjour,
Excuse-moi de ne rien connaître de VB.Net.
Je m'intéresserais toutefois (pur instinct) à ceci :
http://msdn.microsoft.com/fr-fr/library/system.drawing.printing.printersettings%28v=vs.110%29.aspx
et plus particulièrement à la propriété PrinterName de cette claee PinterSettings.

cs_Le Pivert · Answer

Bonjour,

Nécessite une listBox:

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'affiche les imprimantes
        Dim printers As System.Drawing.Printing.PrinterSettings.StringCollection
        printers = System.Drawing.Printing.PrinterSettings.InstalledPrinters()
        For x As Integer = 0 To printers.Count - 1
            ListBox1.Items.Add(printers(x))
        Next
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'sélectionne l'imprimante par défaut 
        Dim net As Object
        net = CreateObject("WScript.Network")
        net.SetDefaultPrinter(ListBox1.SelectedItem)
    End Sub

Voilà

cs_Le Pivert · Answer

Essaie ceci:


 Dim net As Object
        net = CreateObject("WScript.Network")
        net.SetDefaultPrinter("EPSON TM-T88IV ReceiptE4")

jytest · Answer

A cet instant, l'imprimante par défaut est celle en USB,
mais cela continue à imprimer sur l'autre...

Voici mon code mis à jour :

Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim printer As String = "EPSON TM-T88IV ReceiptE4"
        Dim net As Object
        net = CreateObject("WScript.Network")
        net.SetDefaultPrinter("EPSON TM-T88IV ReceiptE4")

Dim fontCAP As PrivateFontCollection = New PrivateFontCollection
        fontCAP.AddFontFile(locfichier10 & "code128.ttf")
        Dim fontEAN As New Font(fontCAP.Families(0), 60, FontStyle.Regular)
        Dim font01 = New Font("Arial", 10)

rtbTicket.Text = "Bonjour"

e.Graphics.DrawString(rtbTicket.Text, font01, Brushes.Black, 0, 25)
        e.Graphics.DrawString(rtbTicket.Text, fontEAN, Brushes.Black, 0, 55)
    End Sub

cs_ShayW · Answer

Bonjour
à mettre 
Option explicit ON et Option strict on 

Peut etre ainsi

Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage        PrintDocument1.PrinterSettings.PrinterName = "EPSON TM-T88IV ReceiptE4"        Dim fontCAP As PrivateFontCollection = New PrivateFontCollection        fontCAP.AddFontFile(locfichier10 & "code128.ttf")        Dim fontEAN As New Font(fontCAP.Families(0), 60, FontStyle.Regular)        Dim font01 = New Font("Arial", 10)        rtbTicket.Text = "Bonjour"        e.Graphics.DrawString(rtbTicket.Text, font01, Brushes.Black, 0, 25)        e.Graphics.DrawString(rtbTicket.Text, fontEAN, Brushes.Black, 0, 55)    End Sub

jytest · Answer

Merci pour ta proposition.
Mais où met-on 
"Option explicit ON" et "Option strict on" ?

jyd

cs_ShayW · Answer

il faut aller  dans  project -> properties -> compile
et cocher Option explicit ON" et "Option strict on"

cela n'a pas à voir directement avec ta question juste une bonne
habitude pour coder correctement

ucfoutu · Answer

Question toute bête. Ton imprimante est-elle elle-même sous réseau ? Elle doit l'être elle-même, si tu veux l'utiliser alors que les autres sont sous réseau.

jytest · Answer

Non, la ticketteuse n'est pas sous réseau.
Par contre, l'autre l'est bien, sous réseau.
Elle ne peut être branchée au pc qu'en USB. 

Bizarre ce que tu me dis, parce que je la choisis "manuellement" par défaut dans les "périphériques et imprimantes", tout fonctionne nickel (...en USB). Bizarre !

cs_ShayW · Answer

question
où as tu écris le  code pour ordonner d'imprimer ?
PrintDocument1.print

jytest · Answer

e.Graphics.DrawString(rtbTicket.Text, font01, Brushes.Black, 0, 25)
e.Graphics.DrawString(rtbTicket.Text, fontEAN, Brushes.Black, 0, 55)
à la fin du bloc.

Tu vois ?

Changer d'imprimante

13 réponses

Votre réponse

Discussions similaires