Public Class Form1
　　Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
　　　　Me.FpSpread1.ActiveSheet.RowCount = 200
　　　　Me.FpSpread1.ActiveSheet.ColumnCount = 6
　　　　Me.FpSpread1.ActiveSheet.Rows.Default.Height = 16
　　　　Me.FpSpread1.ActiveSheet.Columns.Default.Width = 80
　　　　For i As Integer = 0 To Me.FpSpread1.ActiveSheet.RowCount - 1
　　　　　　For j As Integer = 0 To Me.FpSpread1.ActiveSheet.ColumnCount - 1
　　　　　　　　Me.FpSpread1.ActiveSheet.SetValue(i, j, String.Format("{0}:{1}", i, j))
　　　　　　Next
　　　　Next
　　End Sub

　　Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
　　　　Dim pd As New System.Drawing.Printing.PrintDocument
　　　　Me.FpSpread1.ActiveSheet.PrintInfo = New FarPoint.Win.Spread.PrintInfo
　　　　Me.FpSpread1.ActiveSheet.PrintInfo.Header = "/fn""ＭＳ ゴシック""/fz""12""/p ページ"
　　　　Me.FpSpread1.ActiveSheet.PrintInfo.PrintType = FarPoint.Win.Spread.PrintType.PageRange
　　　　Me.FpSpread1.ActiveSheet.PrintInfo.Margin = New FarPoint.Win.Spread.PrintMargin(100, 100, 0, 0, 0, 0)
　　　　Me.FpSpread1.ActiveSheet.PrintInfo.PageStart = 1
　　　　Me.FpSpread1.ActiveSheet.PrintInfo.PageEnd = 1
　　　　Me.FpSpread1.ActiveSheet.PrintInfo.JobName = "1ページ目(指定)"
　　　　Me.FpSpread1.ActiveSheet.PrintInfo.Preview = True
　　　　Me.FpSpread1.PrintSheet(Me.FpSpread1.ActiveSheet)
　　End Sub
End Class