การสั่งปริ้นออกเครื่องปริ้นสลิปครับ ผมทำ Crystal Report ขึ้นมา โดยใส่ข้อความต่างๆที่จะปริ้นให้อยู่ข้างซ้าย

Dim print As New Form2
        Dim p As New PrintDialog
        Dim cry As New cr  'อันนี้เป็น Crystal Report ที่ทำไวครับ
        cry.SetParameterValue("?test", TextBox1.Text)  
        cry.SetParameterValue("?test2", TextBox1.Text)
        p.PrinterSettings.PrinterName = "TP3160"  'อันนี้ชื่อเครื่องปริ้นครับ
        p.AllowCurrentPage = True
        cry.PrintOptions.PaperSize = CrystalDecisions.Shared.PaperSize.DefaultPaperSize 
        cry.PrintOptions.PaperSource = CrystalDecisions.Shared.PaperSource.Auto
        cry.PrintOptions.PrinterName = p.PrinterSettings.PrinterName
        cry.PrintToPrinter(p.PrinterSettings.Copies, p.PrinterSettings.Collate,p.PrinterSettings.FromPage, p.PrinterSettings.ToPage)