Imports System.Drawing.Printing

Public Class Form1
    Dim etichetta As String
    Private Sub Form1_Load() Handles MyBase.Load

        For i As Integer = 0 To PrinterSettings.InstalledPrinters.Count - 1
            ComboBox1.Items.Add(PrinterSettings.InstalledPrinters.Item(i))
        Next

        TextBox1.Text = _
            "^XA" & vbCrLf & _
            "^FO20,20^A0N,40,40^FDCIAO^FS" & vbCrLf & _
            "^PQ1" & vbCrLf & _
            "^XZ"
           
    End Sub

    Private Sub Button1_Click() Handles Button1.Click
        etichetta = TextBox1.Text
        PrintDocument1.PrinterSettings.PrinterName = ComboBox1.SelectedItem
        PrintDocument1.Print()
    End Sub

    Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        e.Graphics.DrawString(etichetta, SystemFonts.DefaultFont, Brushes.Black, 0, 0)
    End Sub
End Class