Recadrer les textes et police

- - Dernière réponse :  Mervelis - 26 août 2019 à 20:16
Bonjour à tous, j'ai un petit soucis avec mon application
je m'explique, avec mon imprimante thermique E-POS 220M que j'utilise avec une application développé en VB. NET qui m'aide à imprimer les factures de vente produit dans ma boutique. je voudrais savoir comment centrer les textes sur le papier et qu'il soit aussi lisible par mes clients et si possible me donner le nom de police a utiliser pour le texte. Voici le lien avec l'image pour mieux se faire comprendre...
--------------------------------------------------------
https://drive.google.com/file/d/1iC32_xiyf7J-Gm9PBoz3j8YvnLrcsJe_/view?usp=drivesdk

je vais que les textes rentre à gauche, svp aider moi
Afficher la suite 

2 réponses

Messages postés
13730
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
17 septembre 2019
302
0
Merci
Bonjour

on te l'a déjà dit, sans code pas possible.
On ne sait pas ce qui pose problème en le lisant dans le marc de café.

D'autre part, poster l'image directement dans le message évite de perdre du temps à aller sur un autre site.
> Whismeril
Messages postés
13730
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
17 septembre 2019
-
il faut faire quoi pour bien le paramétrer ?
Whismeril
Messages postés
13730
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
17 septembre 2019
302 -
Je ne sais pas, je n’ai pas de compte google
Whismeril
Messages postés
13730
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
17 septembre 2019
302 -
Essaye cjoint.com c’est gratuit et sans compte.
> Whismeril
Messages postés
13730
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
17 septembre 2019
-
https://www.cjoint.com/c/IHsviZAnfFK
Bonsoir Whismeril voici le code source de ma question
    Private Sub LoadReceipt()
        Dim x As Integer = 0
        Dim Y As Integer = 0
        Try
            sqL = "SELECT IDescription, itemprice, [Quantity], POSDATE, (itemPrice * [Quantity]) as TotalPrice FROM [Item] as I, POSDetail as PD, POS as P WHERE I.ItemNo = PD.itemNo And PD.InvoiceNO = P.InvoiceNo AND P.InvoiceNo = '" & frmPOS.lblInvoiceNo.Text & "' ORDER By iDescription"
            ConnDB()
            cmd = New OleDbCommand(sqL, conn)
            dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
            dgw.Rows.Clear()
            getTotal = 0.0
            getQuantity = 0.0
            Do While dr.Read = True
                dgw.Rows.Add(dr("Quantity"), dr("iDescription"), dr("Itemprice"), dr("TotalPrice"))
                getTotal += dr("TotalPrice")
                getQuantity += dr(2)
                dgw.Height += 19
                x += 19
            Loop
            Y = x - 30
            dgw.Height = dgw.Height - 20
            lblTotal.Text = Format(getTotal, "#,##0.00")
            lblVat.Location = New Point(204, 212 + Y)
            vat.Location = New Point(4, 212 + Y)
            subTotal.Location = New Point(3, 227 + Y)
            lblSubtotal.Location = New Point(203, 227 + Y)
            TotalAmount.Location = New Point(3, 245 + Y)
            lblTotal.Location = New Point(203, 245 + Y)
            Cash.Location = New Point(3, 262 + Y)
            lblCash.Location = New Point(203, 262 + Y)
            change.Location = New Point(3, 280 + Y)
            lblChange.Location = New Point(203, 280 + Y)
            lblLine.Location = New Point(4, 299 + Y)
            lblOR.Location = New Point(46, 315 + Y)
            lblThank.Location = New Point(62, 331 + Y)
            Panel1.Height = Panel1.Height + Y
            Me.Height = Me.Height + Y
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            cmd.Dispose()
            conn.Close()
        End Try
    End Sub
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim bm As New Bitmap(Me.Panel1.Width, Me.Panel1.Height)

        Panel1.DrawToBitmap(bm, New Rectangle(0, 0, Me.Panel1.Width, Me.Panel1.Height))

        e.Graphics.DrawImage(bm, 0, 0)
        Dim aPS As New PageSetupDialog
        aPS.Document = PrintDocument1
    End Sub


    Private Sub frmPrintReceipt_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label7.Text = Format(Date.Now, "Short Date")
        Label9.Text = Format(Date.Now, "Long Time")
        lblInvoice.Text = frmPOS.lblInvoiceNo.Text
        LoadCustomer()
        GetVatNonVat()
        getCashChange()
        getEmployee()
        LoadReceipt()
        PrintDocument1.Print()
        frmPOS.txtSearch.Focus()
        Me.Close()
    End Sub 
Commenter la réponse de Whismeril
Messages postés
13730
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
17 septembre 2019
302
0
Merci
Bonjour Mervelis.

A chaque question, on te demande de bien présenter ton code, pour nous simplifier la vie.
Tu ne fais pas l'effort, pourquoi ferais je l'effort de m'embêter à lire ton code?

Je te remets, encore une fois le lien vers le petit tuto.
S'il y a quelque chose qui n'est pas suffisamment clair, dis le moi, je corrigerai.
https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
> Whismeril
Messages postés
13730
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
17 septembre 2019
-
Bonjour Whismeril, merci encore de plus pour ta réponse.
je voudrais savoir comment appliquer le traitement d'image à Bm
Whismeril
Messages postés
13730
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
17 septembre 2019
302 -
> Whismeril
Messages postés
13730
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
17 septembre 2019
-
Bonjour Whismeril, tout ce code je veux le placer sur quel événement?
Whismeril
Messages postés
13730
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
17 septembre 2019
302 -
Je dirais ici
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim bm As New Bitmap(Me.Panel1.Width, Me.Panel1.Height)

        Panel1.DrawToBitmap(bm, New Rectangle(0, 0, Me.Panel1.Width, Me.Panel1.Height))
        'là
        e.Graphics.DrawImage(bm, 0, 0)
        Dim aPS As New PageSetupDialog
        aPS.Document = PrintDocument1
    End Sub


Entre le moment où tu crées le bitmap et le moment où tu le passes à l'imprimante.
> Whismeril
Messages postés
13730
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
17 septembre 2019
-
Bonsoir Whismeril, merci beaucoup je le test et je vous informerai de ce qui sera passé
Commenter la réponse de Whismeril