I created a cheque printing project using windows forms and sql server.

Yes this my code.

Dim Bmp As Bitmap


Public Enum PrintPageSettings
Landscape
Portrait
End Enum
Dim scaleX As Integer = 0


Private Sub PrintCheque()
Try
Lblamt.Visible = False
LblDate.Visible = False
LblWords.Visible = False
LblPayee.Visible = False
lblRef.Visible = False
pnlPreview.BorderStyle = BorderStyle.None
'If TxtChqDate.Text <> "" Then TxtChqDate.Text = Format(TxtChqDate.Text, DateFormats)
TakeScreenshot(Bmp, pnlPreview)

PrintDocument1.PrinterSettings.PrinterName = PrintName
Pic = New PictureBox
If PO = "Landscape" Then
PrintDocument1.PrinterSettings.DefaultPageSettings.Landscape = True
Bmp.RotateFlip(RotateFlipType.Rotate90FlipNone)
Pic.Image = Bmp
scaleX = 0
ElseIf PO = "Portrait" Then
PrintDocument1.PrinterSettings.DefaultPageSettings.Landscape = False
Pic.Image = Bmp
scaleX = 0
ElseIf PO = "Landscape Center" Then
PrintDocument1.PrinterSettings.DefaultPageSettings.Landscape = True
Bmp.RotateFlip(RotateFlipType.Rotate90FlipNone)
Pic.Image = Bmp
scaleX = (Pic.Image.Width) / 2
ElseIf PO = "Ex-Landscape Center" Then
PrintDocument1.PrinterSettings.DefaultPageSettings.Landscape = True
Bmp.RotateFlip(RotateFlipType.Rotate270FlipNone)
Pic.Image = Bmp
scaleX = (Pic.Image.Width) / 2
End If
PrintDocument1.Print()
'PrintPreviewDialog1.Document = PrintDocument1
'PrintPreviewDialog1.ShowDialog()


Lblamt.Visible = True
LblDate.Visible = True
LblWords.Visible = True
LblPayee.Visible = True
lblRef.Visible = True
MsgBox("Cheque is Printed Successfully!")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub



Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim rect As Rectangle = New Rectangle(New Point(0, 0), Bmp.Size) ' get the size of the image
e.Graphics.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
e.Graphics.DrawImage(Pic.Image, scaleX, 0) 'Draw Image
End Sub
Dim Pic As PictureBox
Public Sub TakeScreenshot(ByRef bmpImage As Bitmap, pnlPrint As Panel)


Dim form As Form = pnlPrint.FindForm()
If form Is Nothing Then
Throw New ArgumentException(Nothing, "panel")
End If

' remember form position
Dim w As Integer = form.Width
Dim h As Integer = form.Height
Dim l As Integer = form.Left
Dim t As Integer = form.Top


' get panel virtual size
Dim display As Rectangle = pnlPrint.DisplayRectangle

' get panel position relative to parent form
Dim panelLocation As Drawing.Point = pnlPrint.PointToScreen(pnlPrint.Location)
Dim panelPosition As New Size(panelLocation.X - form.Location.X, panelLocation.Y - form.Location.Y)

' resize form and move it outside the screen
Dim neededWidth As Integer = panelPosition.Width + display.Width
Dim neededHeight As Integer = panelPosition.Height + display.Height
form.SetBounds(0, -neededHeight, neededWidth, neededHeight, BoundsSpecified.All)

' resize panel (useless if panel has a dock)
Dim pw As Integer = pnlPrint.Width
Dim ph As Integer = pnlPrint.Height
pnlPrint.SetBounds(0, 0, display.Width, display.Height, BoundsSpecified.Size)

' render the panel on a bitmap
Try
bmpImage