Private Sub cmd_print_Click()
Open "A:\title.txt" For Input As #1
Input #1, a, b, c, d
Close #1
 
Printer.Print "姓名：[" & a & "]    准考證號碼：[" & c & "]"
Printer.Print "座號：[" & b & "]     日期：[" & d & "]"
Printer.Print txt_no1.Text
Printer.Print Txt_no2.Text
Printer.Print Txt_no3.Text
Printer.Print Txt_no4.Text
Printer.Print Txt_no5.Text
Printer.EndDoc

End Sub