Here you are:
Imports
System.Drawing.Printing
Public
Class
Form1
Dim
bitmap
As
Bitmap
Private
Sub
PrintControl(control
As
Control)
bitmap =
New
Bitmap(control.Width, control.Height)
Dim
pd =
New
PrintDocument()
pd.DefaultPageSettings.Landscape =
True
control.DrawToBitmap(bitmap,
New
Rectangle(0, 0, control.Width, control.Height))
AddHandler
pd.PrintPage,
AddressOf
PrintRange
Dim
printPreviewDialog1
As
New
PrintPreviewDialog()
printPreviewDialog1.Document = pd
If
printPreviewDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK
Then
pd.Print()
End
If
End
Sub
Private
Sub
PrintRange(sender
As
Object
, e
As
PrintPageEventArgs)
e.Graphics.DrawImage(Bitmap, 100, 100)
End
Sub
Private
Sub
RadButton1_Click(sender
As
System.
Object
, e
As
System.EventArgs)
Handles
RadButton1.Click
PrintControl(RadScheduler1)
End
Sub
End
Class
Regards,
Stefan
the Telerik team