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 = "SEWOO Font0-0"
            FSize = 4.5
        Case 1:
            FName = "SEWOO Font0-1"
            FSize = 4.5
        Case 2:
            FName = "SEWOO Font0-2"
            FSize = 9
        Case 3:
            FName = "SEWOO Font0-3"
            FSize = 9
        Case 4:
            FName = "SEWOO Font0-4"
            FSize = 9
        Case 5:
            FName = "SEWOO Font0-5"
            FSize = 18.5
        Case 6:
            FName = "SEWOO Font0-6"
            FSize = 18.5
        Case 7:
            FName = "SEWOO Font1-0"
            FSize = 17
        Case 8:
            FName = "SEWOO Font2-0"
            FSize = 4.5
        Case 9:
            FName = "SEWOO Font2-1"
            FSize = 8.5
        Case 10:
            FName = "SEWOO Font4-0"
            FSize = 16.5
        Case 11:
            FName = "SEWOO Font4-1"
            FSize = 33
        Case 12:
            FName = "SEWOO Font4-2"
            FSize = 16
        Case 13:
            FName = "SEWOO Font4-3"
            FSize = 32
        Case 14:
            FName = "SEWOO Font4-4"
            FSize = 64
        Case 15:
            FName = "SEWOO Font5-0"
            FSize = 8.5
        Case 16:
            FName = "SEWOO Font5-1"
            FSize = 17
        Case 17:
            FName = "SEWOO Font5-2"
            FSize = 16.5
        Case 18:
            FName = "SEWOO Font5-3"
            FSize = 32.5
        Case 19:
            FName = "SEWOO Font6-0"
            FSize = 9.5
        Case 20:
            FName = "SEWOO Font7-0"
            FSize = 8.5
        Case 21:
            FName = "SEWOO Font7-1"
            FSize = 17
    End Select
 
  
    Printer.FontSize = FSize
    Printer.FontName = FName

    Printer.Print FName + LF

   Printer.EndDoc

End Sub

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

    ' 영문 반각 폰트
    cboEnglish.AddItem "SEWOO Font0-0"
    cboEnglish.AddItem "SEWOO Font0-1"
    cboEnglish.AddItem "SEWOO Font0-2"
    cboEnglish.AddItem "SEWOO Font0-3"
    cboEnglish.AddItem "SEWOO Font0-4"
    cboEnglish.AddItem "SEWOO Font0-5"
    cboEnglish.AddItem "SEWOO Font0-6"
    cboEnglish.AddItem "SEWOO Font1-0"
    cboEnglish.AddItem "SEWOO Font2-0"
    cboEnglish.AddItem "SEWOO Font2-1"
    cboEnglish.AddItem "SEWOO Font4-0"
    cboEnglish.AddItem "SEWOO Font4-1"
    cboEnglish.AddItem "SEWOO Font4-2"
    cboEnglish.AddItem "SEWOO Font4-3"
    cboEnglish.AddItem "SEWOO Font4-4"
    cboEnglish.AddItem "SEWOO Font5-0"
    cboEnglish.AddItem "SEWOO Font5-1"
    cboEnglish.AddItem "SEWOO Font5-2"
    cboEnglish.AddItem "SEWOO Font5-3"
    cboEnglish.AddItem "SEWOO Font6-0"
    cboEnglish.AddItem "SEWOO Font7-0"
    cboEnglish.AddItem "SEWOO Font7-1"
    cboEnglish.ListIndex = 0
End Sub


