Маржа в печати VB.NET - PullRequest
Новая
       63

Маржа в печати VB.NET

0 голосов
/ 20 сентября 2018

Я пытаюсь распечатать квитанцию ​​на 58-миллиметровой термопечати с использованием vb.net и Graphics.DrawString из vb.net, но в начале она оставляет свободное место.Я также попытался дать значения координат х как 0 и отрицательные, в таких случаях первый случай либо печатает половину, либо иногда отбрасывает.

Код такой, как показано ниже 

    Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles btnPrint.Click

    PrintDialog1.Document = PrintDocument1 'PrintDialog associate with PrintDocument.

    If PrintDialog1.ShowDialog() = DialogResult.OK Then
        PrintDocument1.Print()
    End If
End Sub



    Private Sub PrintDocument1_PrintPage(sender As Object, e As                         Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

    Dim printFont = New Font("Calligraphr", 24.8, FontStyle.Regular)

    Dim printBold = New Font("Calligraphr", 26, FontStyle.Bold)
    e.Graphics.DrawString("C", printFont, Brushes.Black, New Point(0, 50))
    e.Graphics.DrawString("I", printFont, Brushes.Black, New Point(-6, 60))
    e.Graphics.DrawString("T", printFont, Brushes.Black, New Point(6, 60))
    e.Graphics.DrawString("Y", printFont, Brushes.Black, New Point(12, 60))

   End Sub

Photo of Printing of above code

1 Ответ

0 голосов
/ 20 сентября 2018

Попробуйте указать размер бумаги, с которой вы работаете, перед печатью, например 

Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles btnPrint.Click

    PrintDoc.PrinterSettings = PrintDialog.PrinterSettings

    Dim psz As New Printing.PaperSize

    PrintDoc.PrinterSettings.PrinterName = printerName

    psz.RawKind = Printing.PaperKind.Custom

    Dim printSize as Size = New Size(MMInPixel(58), MMInPixel(58))
    psz.Width = printSize.Width
    psz.Height = printSize.Height

    '---- Set the paper size
    PrintDoc.DefaultPageSettings.PaperSize = psz

    PrintDoc.Print()

End Sub

Private Sub PrintDoc_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDoc.PrintPage

    Dim f As New Font("Calibri", 11, FontStyle.Regular, GraphicsUnit.Point)

    With e.Graphics

        .SmoothingMode = SmoothingMode.HighQuality
        .TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAliasGridFit

        .DrawString("C", printFont, Brushes.Black, MMInPixel(0), MMInPixel(50))

    End With

End Sub

Private inchInMM As Double = 25.4          'mm = 1 inch
Private dpi As Integer = 96

Private Function MMInPixel(value As Integer) As Integer

    Return Math.Round((value / inchInMM) * dpi, MidpointRounding.AwayFromZero)

End Function
...