VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Font Test"
   ClientHeight    =   2220
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   2940
   LinkTopic       =   "Form1"
   ScaleHeight     =   2220
   ScaleWidth      =   2940
   StartUpPosition =   3  'Windows ±βΊ»°ͺ
   Begin VB.ComboBox cboEnglish 
      Height          =   300
      Left            =   480
      TabIndex        =   2
      Top             =   600
      Width           =   2055
   End
   Begin VB.CommandButton cmdEnglish 
      Caption         =   "Print Font"
      Height          =   615
      Left            =   240
      TabIndex        =   1
      Top             =   1320
      Width           =   2415
   End
   Begin VB.Frame Frame2 
      Caption         =   "English Font"
      Height          =   855
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   2415
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim FName As String
Dim FSize As Byte

Private Sub cmdEnglish_Click()
    Select Case cboEnglish.ListIndex
        Case 0:
            FName = "FontA1x1"
            FSize = 8.5
        Case 1:
            FName = "FontA1x2"
            FSize = 8.5
        Case 2:
            FName = "FontA2x1"
            FSize = 8.5
        Case 3:
            FName = "FontA2x2"
            FSize = 17
    End Select
 
  
    Printer.FontSize = FSize
    Printer.FontName = FName

    For i = &H20 To &H7F
        Printer.Print "[" + Hex(i) + "]";
        Printer.Print " " + Chr(i) + LF
    Next

   Printer.EndDoc

End Sub

Private Sub Form_Load()
    For Each prnPrinter In Printers
       If (prnPrinter.DeviceName = "SEWOO LK-P11 Receipt") Then
           Set Printer = prnPrinter
           Exit For
       End If
    Next
    
    If (Printer.DeviceName <> "SEWOO LK-P11 Receipt") Then
        MsgBox "SEWOO LK-P11 Receipt Driver not installed", vbOKOnly
    End
    End If

    ' English Device Font
    cboEnglish.AddItem "FontA1x1"
    cboEnglish.AddItem "FontA1x2"
    cboEnglish.AddItem "FontA2x1"
    cboEnglish.AddItem "FontA2x2"
    cboEnglish.ListIndex = 0
End Sub


