VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Device Font Test"
   ClientHeight    =   1815
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   2775
   LinkTopic       =   "Form1"
   ScaleHeight     =   1815
   ScaleWidth      =   2775
   StartUpPosition =   3  'Windows Default
   Begin VB.Frame Frame1 
      Caption         =   "Font Test"
      Height          =   1575
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   2535
      Begin VB.CommandButton Command1 
         Caption         =   "Print CodePage"
         Height          =   495
         Left            =   240
         TabIndex        =   2
         Top             =   840
         Width           =   1935
      End
      Begin VB.ComboBox korCmb 
         Height          =   315
         Left            =   240
         TabIndex        =   1
         Text            =   "FontA1x1"
         Top             =   360
         Width           =   1935
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    
 Select Case korCmb.Text
        Case "FontA1x1":
            FName = "FontA1x1"
            FSize = 8.5
        Case "FontA1x1[Ext.]":
            FName = "FontA1x1[Ext.]"
            FSize = 8.5
        Case "FontA1x1[255]":
            FName = "FontA1x1[255]"
            FSize = 8.5
        Case "FontB1x1":
            FName = "FontB1x1"
            FSize = 6
        Case "FontB1x1[Ext.]":
            FName = "FontB1x1[Ext.]"
            FSize = 6
        Case "FontB1x1[255]":
            FName = "FontB1x1[255]"
            FSize = 6
               
 End Select

  Printer.FontSize = FSize
  Printer.FontName = FName

    For i = 128 To 255
        Printer.Print "[" + Hex(i) + "]";
        Printer.Print Chr(i) + Lf
    Next

    Printer.EndDoc
    
End Sub

Private Sub Command2_Click()
    For i = 128 To 255
        Printer.Print "[" + Hex(i) + "]";
        Printer.Print " " + Chr(i) + Lf
    Next

End Sub

Private Sub Form_Load()

    For Each prnPrinter In Printers
        If prnPrinter.DeviceName = "BIXOLON SPP-R200" Then
            Set Printer = prnPrinter
            Exit For
        End If
    Next
    
    If Printer.DeviceName <> "BIXOLON SPP-R200" Then
       MsgBox ("BIXOLON SPP-R200 driver not installed")
       End
    End If
       
    korCmb.AddItem "FontA1x1"
    korCmb.AddItem "FontA1x1[Ext.]"
    korCmb.AddItem "FontA1x1[255]"
    korCmb.AddItem "FontB1x1"
    korCmb.AddItem "FontB1x1[Ext.]"
    korCmb.AddItem "FontB1x1[255]"
  
    Dim FName As String
    Dim FSize As Byte
       
End Sub

