大家帮帮忙 一个打印VB窗体背景的问题
Private Sub Command1_Click()
'Form1.Width = 850
'Form1.Height = 535
'With Image1
' .Width = 231
' .Height = 321
'End With
'Data1.Refresh
'Data1.Recordset.MoveFirst
'Label6.Caption = Trim(Data1.Recordset("xm"))
'Label7.Caption = Trim(Data1.Recordset("zw"))
'Text3.Text = Trim(Data1.Recordset("bh"))
'Label3.Caption = Trim(Data1.Recordset("bm1"))
Label5.Visible = False
Text1.Visible = False
Form1.BackColor = &H80000005
Image2.Picture = LoadPicture()
Form1.PrintForm
Image2.Picture = LoadPicture("d:\kk55.jpg")
Command1.Enabled = False
Command3.Enabled = False
我想打印这个窗体 但是打印不出背景 上面Image2.Picture = LoadPicture("d:\kk55.jpg")
是窗体的外边框 背景代码我没有添加 因为添哪都打不出来
请教大家应该添哪 添什么
多谢了 --------------------编程问答-------------------- 没问题啊，我这样用是可以打印出来的：
Private Sub Command1_Click()--------------------编程问答--------------------
Image1.Picture = LoadPicture("d:\未命名.bmp")
Form1.BackColor = RGB(0, 0, 0)
Form1.PrintForm
End Sub
--------------------编程问答-------------------- 请问2楼的兄弟
Private Sub Command1_Click()
Me.Picture = LoadPicture("d:\未命名.bmp")
Me.BackColor = RGB(0, 0, 0)
Me.PrintForm
End Sub
Private Sub Command1_Click()
Image1.Picture = LoadPicture("d:\未命名.bmp")
Form1.BackColor = RGB(0, 0, 0)
Form1.PrintForm
End Sub
在我的代码里面哪个位置填写 我VB不懂 还请详细点 --------------------编程问答-------------------- 次序调整:
--------------------编程问答-------------------- 楼上的好像你的答案跟我问的没关系呢 我想添加背景 你换换地方背景也出不来啊 --------------------编程问答--------------------
Private Sub Command1_Click()
'Form1.Width = 850
'Form1.Height = 535
'With Image1
'.Width = 231
'.Height = 321
'End With
'Data1.Refresh
'Data1.Recordset.MoveFirst
'Label6.Caption = Trim(Data1.Recordset("xm"))
'Label7.Caption = Trim(Data1.Recordset("zw"))
'Text3.Text = Trim(Data1.Recordset("bh"))
'Label3.Caption = Trim(Data1.Recordset("bm1"))
Label5.Visible = False
Text1.Visible = False
Form1.BackColor = &H80000005
'Image2.Picture = LoadPicture()
'Form1.PrintForm
Image2.Picture = LoadPicture("d:\kk55.jpg")
Form1.PrintForm
Command1.Enabled = False
Command3.Enabled = False
End Sub
Private Sub Command1_Click()--------------------编程问答--------------------
Me.BackColor = &H80000005
Set Me.Picture = LoadPicture("d:\kk55.jpg")
Me.PrintForm
End Sub
LZ,你的代码是执行Form1.PrintForm将Image2.Picture设置为空,如何打印背景.
Form1.BackColor = &H80000005
Image2.Picture = LoadPicture()
Form1.PrintForm
Image2.Picture = LoadPicture("d:\kk55.jpg")
--------------------编程问答-------------------- 楼上的兄弟 我比较菜 比如说我想加一个背景 背景在D盘 名字是111.jpg
Private Sub Command1_Click()
Form1.BackColor = &H80000005
Image2.Picture = LoadPicture("d:\kk55.jpg")
DoEvents
Form1.PrintForm
End Sub
能给我个完整的代码么 --------------------编程问答--------------------
Private Sub Command1_Click()--------------------编程问答-------------------- 我都要哭了 能给个完整的么 你给的代码我不知道该怎么放 放在哪
Me.BackColor = &H80000005
Set Me.Picture = LoadPicture("d:\111.jpg")
Me.PrintForm
End Sub
给个完整的吧 多谢大家了 --------------------编程问答--------------------
晕倒 --------------------编程问答-------------------- 回答问题的大哥们能再说的详细点么 小弟太菜了
还请多包含
我的QQ 405439568 --------------------编程问答--------------------
已经解说的非常详细,你在1楼的代码是你自己的吧,运行过吗?
按你1楼的代码是打印不出背景图片的. --------------------编程问答-------------------- 晕 你看我的题目已经说的很清楚了
“我想打印这个窗体 但是打印不出背景 上面Image2.Picture = LoadPicture("d:\kk55.jpg")
是窗体的外边框 背景代码我没有添加 因为添哪都打不出来
请教大家应该添哪 添什么
多谢了”
都说了背景代码没有添加 因为我不知道添哪 比如说我想加一个背景 背景在D盘 名字是111.jpg
大哥帮帮忙把你的代码添到我的代码里去吧 呵呵
我太菜了 不知道往哪里添
多谢多谢 --------------------编程问答--------------------
Private Sub Command1_Click()--------------------编程问答-------------------- --------------------编程问答-------------------- 直接用这个Form1.PrintForm +打不了颜色，你在加上颜色就OK了 --------------------编程问答-------------------- 给个完整的啊 多谢了 我不知道该怎么放 --------------------编程问答--------------------
'Form1.Width = 850
'Form1.Height = 535
'With Image1
' .Width = 231
' .Height = 321
'End With
'Data1.Refresh
'Data1.Recordset.MoveFirst
'Label6.Caption = Trim(Data1.Recordset("xm"))
'Label7.Caption = Trim(Data1.Recordset("zw"))
'Text3.Text = Trim(Data1.Recordset("bh"))
'Label3.Caption = Trim(Data1.Recordset("bm1"))
Label5.Visible = False
Text1.Visible = False
Form1.BackColor = &H80000005
Set Form1.Picture = LoadPicture("d:\111.jpg")
Form1.PrintForm
Command1.Enabled = False
Command3.Enabled = False
Private Sub Command1_Click()--------------------编程问答-------------------- 还有什么目的说清楚？
'Form1.Width = 850
'Form1.Height = 535
'With Image1
' .Width = 231
' .Height = 321
'End With
'Data1.Refresh
'Data1.Recordset.MoveFirst
'Label6.Caption = Trim(Data1.Recordset("xm"))
'Label7.Caption = Trim(Data1.Recordset("zw"))
'Text3.Text = Trim(Data1.Recordset("bh"))
'Label3.Caption = Trim(Data1.Recordset("bm1"))
Label5.Visible = False
Text1.Visible = False
Form1.BackColor = &H80000005
Image2.Picture = LoadPicture()
Set Form1.Picture = LoadPicture("d:\111.jpg")
Form1.PrintForm
Image2.Picture = LoadPicture("d:\kk55.jpg")
Command1.Enabled = False
Command3.Enabled = False
这里测试成功。 --------------------编程问答--------------------
补充：VB , 控件
