아래코드를 이용햇는데  PDF 인쇄가 빈공백으로 나오는 이유를 알 수있을까요 ?

​

​

​

​

​

​Dim fpSpread1 AsNew FarPoint.Win.Spread.FpSpread() Dim shv AsNew FarPoint.Win.Spread.SheetView() fpSpread1.Location = New Point(10, 10) fpSpread1.Height = 200 fpSpread1.Width = 400 Controls.Add(fpSpread1) fpSpread1.Sheets.Add(shv) fpSpread1.ActiveSheet.ColumnCount = 4 fpSpread1.ActiveSheet.RowCount = 4 fpSpread1.PrintSheet(0)

​

​

Dim pi As New FarPoint.Win.Spread.PrintInfo
Dim pm As New FarPoint.Win.Spread.PrintMargin
Dim rules As New FarPoint.Win.Spread.SmartPrintRulesCollection
rules.Add(New FarPoint.Win.Spread.ScaleRule(FarPoint.Win.Spread.ResetOption.None, 1, 2, 0.5))
rules.Add(New FarPoint.Win.Spread.BestFitColumnRule(FarPoint.Win.Spread.ResetOption.None))
pm.Left = 10
pm.Right = 10
pm.Top = 20
pm.Bottom = 40
pi.AbortMessage = "Do you want to cancel printing??"
pi.BestFitCols = True
pi.BestFitRows = True
pi.ColEnd = 20
pi.ColStart = 1
pi.FirstPageNumber = 1
pi.Footer = "This is Page /p/nof /pc Pages"
pi.Header = "Print Job For /nFPT Inc."
pi.JobName = "New Print Job"
pi.Margin = pm
pi.Orientation = FarPoint.Win.Spread.PrintOrientation.Portrait
pi.PageEnd = 5
pi.PageOrder = FarPoint.Win.Spread.PrintPageOrder.Auto
pi.PageStart = 1
pi.Preview = False
pi.Printer = "HP6L"
pi.PrintType = FarPoint.Win.Spread.PrintType.CellRange
pi.RowEnd = 20
pi.RowStart = 1
pi.ShowBorder = False
pi.ShowColor = False
pi.ShowColumnHeader = FarPoint.Win.Spread.PrintHeader.Hide
pi.ShowGrid = True
pi.ShowPrintDialog = True
pi.ShowRowHeader = FarPoint.Win.Spread.PrintHeader.Hide
pi.ShowShadows = False
pi.SmartPrintRules = rules
pi.UseMax = False
pi.UseSmartPrint = True
pi.ZoomFactor = 2
FpSpread1.ActiveSheet.PrintInfo = pi