With VSPrinter1
.StartDoc
.Zoom = 100'显示比例
.RenderControl = vsFlexGrid1.Hwnd '把网格内容传递给VSPrinter显示
.EndDoc
End With我想请问的是: 按照这样子打印预览,vsprinter1的打印宽度,我能不能控制。还有表格总是距离左边距近,右边距过宽, 如何调整表格在打印居中呀!!!!!!!!!
大侠们, 有没有会的啊。
.StartDoc
.Zoom = 100'显示比例
.RenderControl = vsFlexGrid1.Hwnd '把网格内容传递给VSPrinter显示
.EndDoc
End With我想请问的是: 按照这样子打印预览,vsprinter1的打印宽度,我能不能控制。还有表格总是距离左边距近,右边距过宽, 如何调整表格在打印居中呀!!!!!!!!!
大侠们, 有没有会的啊。
SaveSetting App.VSPrinter1, "Settings", "MainLeft", Me.Left
SaveSetting App.VSPrinter1, "Settings", "MainTop", Me.Top
SaveSetting App.VSPrinter1, "Settings", "MainWidth", Me.Width
SaveSetting App.VSPrinter1, "Settings", "MainHeight", Me.Height
End If
或者
.align= middle
试下吧,,,