Visual Basic

Dim conn2 As New OleDbConnection()
conn2.ConnectionString = m_sExcelConnection
conn2.Open()
Dim cmd As New OleDbCommand()

cmd.Connection = conn2
cmd.CommandText = "CREATE TABLE Detail (Invoice_No char(255),CheckIn char(255),CheckOut char(255),"
cmd.CommandText += "RNum integer,Guest_Name char(255),Base_Room_Charge Decimal,Service_Charge Decimal,"
cmd.CommandText += "HEBERGEMENT Decimal,TPS Decimal,TVQ Decimal,Total_Taxes Decimal,Total_Charges Decimal,"
cmd.CommandText += "Total_Deposit Decimal)"

Try
    cmd.ExecuteNonQuery()
    conn2.Close()
Catch ex As Exception
    conn2.Close()
End Try

Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
  sPrint(e.Graphics)
End Sub

Private Sub fFontTest_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
  TextBox1.Text = "abcdefghijklmnopqrstuvwxyz" & vbCrLf & "abcdefghijklmnopqrstuvwxyz".ToUpper & vbCrLf & "0123456789"
End Sub

Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
  PrintPreviewControl1.InvalidatePreview()
End Sub

Private Sub fFontTest_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
  sPrint(e.Graphics)
End Sub
Sub sPrint(g As Graphics)
  Dim pfc As New Drawing.Text.PrivateFontCollection

  pfc.AddFontFile(Application.StartupPath & "\Alpha.ttf")
  Dim ff As FontFamily = pfc.Families(0)
  Dim f As Font = New Font(ff, 20)

  g.DrawString(TextBox1.Text, f, Brushes.Black, 0, 250)
  g.DrawString(f.Name, Me.Font, Brushes.Black, 0, 450)
End Sub