vb msflexgrid控件 打印问题

你的问题不容易解决，因为vb的蚂斗打印很弱，如果自己 *** 作打印机又会面临一系列问题，建议将数据导出到word或excel后调用word或excel的打印实现（你誉则可以自己控制用户是否能看到word或excel）。也就是说，你可以在用户不知道庆物棚的情况下调用office，实现你想要的打印效果。

Private Sub Command1_Click()

Printer.FontSize = Text1.FontSize

Printer.Print Text1.Text

Printer.FontSize = Text2.FontSize

Printer.Print Text2.Text

'......

'......

Printer.FontSize = Text10.FontSize

Printer.Print Text10.Text

Printer.EndDoc

End Sub

打印的

Printer.PaintPicture Image1.Picture, 1, 1

Printer.EndDoc

保旅慧存的

1.先加入部件Microsoft Common Dialog Control X.X

2.创建一个 CommonDialog 名为 CD1

3.

Dim a As String, b As String

a = TextBox1.Text

b = "e:\images\" + a + ".jpg"拆悉答

cd1.showsave

if dir(cd1.filename)<>"" then

magbox "文件已存在"

else

If Dir(b) <>"" Then

filecopy b , cd1.filename

Else

filecopy "e:\images\a.jpg"陆陪,cd1.filename

End If

endif

---