您好。
程序如下:
Dim ict As FarPoint.Win.Spread.CellType.ImageCellType = New FarPoint.Win.Spread.CellType.ImageCellType()
.Cells(18, 0).CellType = ict
.Cells(18, 0).Value = pic.bmp
pic.DrawLine(****)
...
这是我自己需要画的图。
后面花是在spread里直接插入的。
打印代码:
Dim pi As FarPoint.Win.Spread.PrintInfo = New FarPoint.Win.Spread.PrintInfo()
pi.Margin = New FarPoint.Win.Spread.PrintMargin(16, 75, 18, 38, 0, 0)
pi.ZoomFactor = 0.6
pi.Orientation = FarPoint.Win.Spread.PrintOrientation.Landscape
FpSpread1.Sheets(0).PrintInfo = pi
FpSpread1.PrintSheet(0)
当1:1时打印没有问题,而打印不下,需要缩放时(0.6),单元格的位置都缩放了,但是图形和图片的内容都没有缩小,还是1:1,这样就被边框截断了。
请参照下面附图1,2 和3.
|