Visual Basic - que font utilizo para un ticket

Quiero incluir el font standar para imprimir un ticket como el del supermercado en mi aplicacion pero no se como hacerlo, o no se que fuente usar para que eso pase.
Pueden ayudarme porfavor?

Gracias

Public Function PrintNota(MyForm As Form)
SQL1 = ""
SQL1 = "select NoPrint from Ticket"
Set qr1 = db.CreateQueryDef("", SQL1)
Set rs1 = qr1.OpenRecordset()
If rs1.Fields(0).Value = Verdadero Then
On Error GoTo Errores:
SQL = ""
SQL = "select * from Ticket"
Set qr = db.CreateQueryDef("", SQL)
Set rs = qr.OpenRecordset()
PieNota1 = UCase(rs.Fields(7).Value)
PieNota2 = UCase(rs.Fields(8).Value)
PieNota3 = UCase(rs.Fields(9).Value)
CurrentX = 0
Printer.Font.Name = "Arial" 'OJO____________ES AQUI DONDE DEBO INDICAR QUE FONT ES


Printer.Print " "
For W = 0 To 6
If rs.Fields(W).Value <> "" Then Printer.Print rs.Fields(W).Value
Next W
If Mid(Cabeza, 1, 40) <> "" Then
Printer.Print LTrim(Mid(Cabeza, 1, 40))
End If
If Mid(Cabeza, 41, 40) <> "" Then
Printer.Print LTrim(Mid(Cabeza, 41, 40))
End If
If Mid(Cabeza, 81, 40) <> "" Then
Printer.Print LTrim(Mid(Cabeza, 81, 40))
End If
If Mid(Cabeza, 121, 40) <> "" Then
Printer.Print LTrim(Mid(Cabeza, 121, 40))
End If
If Mid(Cabeza, 161, 40) <> "" Then
Printer.Print LTrim(Mid(Cabeza, 161, 40))
End If
If Mid(Cabeza, 201, 40) <> "" Then
Printer.Print LTrim(Mid(Cabeza, 201, 40))
End If
If Mid(Cabeza, 241, 40) <> "" Then
Printer.Print LTrim(Mid(Cabeza, 241, 40))
End If

If MyForm.Nombre.Text <> "" Then Printer.Print String(17, "-") & "CLIENTE" & String(16, "-")
If MyForm.Nombre.Text <> "" Then Printer.Print Trim(MyForm.Nombre.Text)
'frmventas.di
MyNota = MyForm.Direccion.Text
AllNota = MyNota
Zu = 1
Do While Trim(MyNota) <> ""
MyNota = Mid(AllNota, Zu, 40)
If Trim(MyNota) <> "" Then Printer.Print UCase(LTrim(MyNota))
Zu = Zu + 40
Loop
If PrintFlag = 1 Then Printer.Print String(14, "-") & "NOTA DE VENTA" & String(13, "-")
If PrintFlag = 1 Then Printer.Print "CLIENTE: " & MyForm.lblNumCliente.Caption; " "; "FOLIO: "; UCase(MyFolio)
If PrintFlag = 2 Then Printer.Print Tab(41); "------------PEDIDO O ANTICIPO-----------"
If PrintFlag = 2 Then Printer.Print "CLIENTE: " & MyForm.lblNumCliente.Caption; " "; "FOLIO: "; UCase(MyFolio)
If PrintFlag = 3 Then Printer.Print Tab(41); "--------------COTIZACIÓN----------------"
If PrintFlag = 3 Then Printer.Print "CLIENTE: " & MyForm.lblNumCliente.Caption; " "; "FOLIO: "; UCase(MyFolio)
Printer.Print "FECHA: "; UCase(Format(Now, "dd/mmm/yyyy")) & " HORA: " & UCase(Format(Now, "hh:mm am/pm"))
Printer.Print "CANT."; Tab(7); "DESCRIPCION"; Tab(20); "PRECIO"; Tab(34); "IMPORTE"
'To Check
zi = 0
Do While zi <> MyForm.GrdCaptura.Rows
If MyForm.GrdCaptura.TextMatrix(zi, 1) <> "" Then
Mycant = MyForm.GrdCaptura.TextMatrix(zi, 4)
MyUnd = MyForm.GrdCaptura.TextMatrix(zi, 3)
MyCode = Trim(MyForm.GrdCaptura.TextMatrix(zi, 1))
MyDesc = Trim(MyForm.GrdCaptura.TextMatrix(zi, 2))
MyImp1 = MyForm.GrdCaptura.TextMatrix(zi, 4)
MyImp2 = MyForm.GrdCaptura.TextMatrix(zi, 5)
MyImporte = IIf(MyImp1 = "", 0, MyImp1) * IIf(MyImp2 = "", 0, MyImp2)
MyImporte = Format(MyImporte, "###,##0.00")
'°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Printer.Print Tab(5 - Len(Trim(Mycant))); Mycant; Tab(7); Trim(MyUnd); Tab(11); RTrim(MyDesc)
Printer.Print Tab(5 - Len(Trim(MyCode))); MyCode; Tab(23 - Len(MyImp2)); MyImp2; Tab(40 - Len(MyImporte)); MyImporte
'°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Else
MyNota = MyForm.GrdCaptura.TextMatrix(zi, 2)
AllNota = MyNota
Zu = 1
Do While MyNota <> ""
MyNota = Mid(AllNota, Zu, 40)
If MyNota <> "" Then Printer.Print UCase(LTrim(MyNota))
Zu = Zu + 40
Loop
End If
zi = zi + 1
Loop

Printer.Print ""
'If Val(MyForm.txtDescuento.Text) <> 0 Then Printer.Print Tab(9); "TOTAL :"; Tab(40 - Len(Trim(MyForm.txtTotal.Text))); MyForm.txtTotal.Text
'If Val(MyForm.txtDescuento.Text) <> 0 Then Printer.Print Tab(9); "DESCUENTO :"; Tab(40 - Len(Trim(MyForm.txtDescuento.Text))); MyForm.txtDescuento.Text
Printer.Print Tab(9); "TOTAL A PAGAR :"; Tab(40 - Len(Trim(MyForm.txtTotal.Text))); MyForm.txtTotal.Text
Printer.Print Tab(9); "EFECTIVO :"; Tab(40 - Len(Trim(MyForm.A_Cuenta.Text))); MyForm.A_Cuenta.Text
If Val(MyForm.txtMontoCheque.Text) <> 0 Then Printer.Print Tab(9); "CHEQUE :"; Tab(40 - Len(Trim(MyForm.txtMontoCheque.Text))); RTrim(MyForm.txtMontoCheque.Text)
If Val(MyForm.txtMontoT.Text) <> 0 Then Printer.Print Tab(9); "TARJETA :"; Tab(40 - Len(Trim(MyForm.txtMontoT.Text))); RTrim(MyForm.txtMontoT.Text)
If Val(MyForm.Resta.Text) <> "0.00" Then Printer.Print Tab(9); "CAMBIO :"; Tab(40 - Len(Trim(MyForm.Resta.Text))); RTrim(MyForm.Resta.Text)
If Val(MyForm.txtResta.Text) <> "0.00" Then Printer.Print Tab(9); "RESTA :"; Tab(40 - Len(Trim(MyForm.txtResta.Text))); RTrim(MyForm.txtResta.Text)
Printer.Print " "

MyCantLetra = UCase(MyCantLetra)
If Mid(MyCantLetra, 1, 40) <> "" Then
Printer.Print "SON: " & Mid(MyCantLetra, 1, 35)
End If
If Mid(MyCantLetra, 36, 76) <> "" Then
Printer.Print Mid(MyCantLetra, 36, 76)
End If
If Mid(MyCantLetra, 77, 117) <> "" Then
Printer.Print Mid(MyCantLetra, 77, 117)
End If
If Mid(MyCantLetra, 118, 158) <> "" Then
Printer.Print Mid(MyCantLetra, 118, 158)
End If
If Mid(MyCantLetra, 159, 199) <> "" Then
Printer.Print Mid(MyCantLetra, 159, 199)
End If

If DonVoy = "Remi" And MyForm.Direccion <> "" Then
If Mid(PieNota1, 1, 43) <> "" Then
Printer.Print Mid(PieNota1, 1, 40)
End If
If Mid(PieNota1, 41, 43) <> "" Then
Printer.Print Mid(PieNota1, 41, 40)
End If
If Mid(PieNota1, 81, 43) <> "" Then
Printer.Print Mid(PieNota1, 81, 40)
End If
If Mid(PieNota1, 121, 43) <> "" Then
Printer.Print Mid(PieNota1, 121, 40)
End If
If Mid(PieNota1, 161, 43) <> "" Then
Printer.Print Mid(PieNota1, 161, 40)
End If
End If

If DonVoy = "Pedi" Or DonVoy = "Remi" Then
If Mid(PieNota2, 1, 43) <> "" Then
Printer.Print Mid(PieNota2, 1, 40)
End If
If Mid(PieNota2, 41, 43) <> "" Then
Printer.Print Mid(PieNota2, 41, 40)
End If
If Mid(PieNota2, 81, 43) <> "" Then
Printer.Print Mid(PieNota2, 81, 40)
End If
If Mid(PieNota2, 121, 43) <> "" Then
Printer.Print Mid(PieNota2, 121, 40)
End If
If Mid(PieNota2, 161, 43) <> "" Then
Printer.Print Mid(PieNota2, 161, 40)
End If
End If

If DonVoy = "Coti" Then
If Mid(PieNota3, 1, 43) <> "" Then
Printer.Print Mid(PieNota3, 1, 40)
End If
If Mid(PieNota3, 41, 43) <> "" Then
Printer.Print Mid(PieNota3, 41, 40)
End If
If Mid(PieNota3, 81, 43) <> "" Then
Printer.Print Mid(PieNota3, 81, 40)
End If
If Mid(PieNota3, 121, 43) <> "" Then
Printer.Print Mid(PieNota3, 121, 40)
End If
If Mid(PieNota3, 161, 43) <> "" Then
Printer.Print Mid(PieNota3, 161, 40)
End If
End If
Printer.Print "LO ATENDIO: "; UCase(MyForm.lblAtiende.Caption)
Printer.EndDoc
Errores:
If Err.Number = 482 Then MsgBox "Error de Impresora!" ' Else MsgBox "Ha Ocurrido un Error!", vbCritical
End If
End Function