大家帮帮忙 一个打印VB窗体背景的问题

Question

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 = FalseForm1.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")
是窗体的外边框   背景代码我没有添加 因为添哪都打不出来   
请教大家应该添哪  添什么
多谢了

Answer 1

没问题啊，我这样用是可以打印出来的：
Private Sub Command1_Click()
        Image1.Picture = LoadPicture("d:\未命名.bmp")
        Form1.BackColor = RGB(0, 0, 0)
        Form1.PrintForm
End Sub

Answer 2

Private Sub Command1_Click()
        Me.Picture = LoadPicture("d:\未命名.bmp")
        Me.BackColor = RGB(0, 0, 0)
        Me.PrintForm
End Sub

Answer 3

请问2楼的兄弟  
Private Sub Command1_Click()
        Image1.Picture = LoadPicture("d:\未命名.bmp")
        Form1.BackColor = RGB(0, 0, 0)
        Form1.PrintForm
End Sub
在我的代码里面哪个位置填写  我VB不懂  还请详细点

Answer 4

次序调整: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

Answer 5

Private Sub Command1_Click()
    Me.BackColor = &H80000005
    Set Me.Picture = LoadPicture("d:\kk55.jpg")
    Me.PrintForm
End Sub

Answer 6

LZ,你的代码是执行Form1.PrintForm将Image2.Picture设置为空,如何打印背景.
Form1.BackColor = &H80000005 
Image2.Picture = LoadPicture() 
Form1.PrintForm 
Image2.Picture = LoadPicture("d:\kk55.jpg") 
Private Sub Command1_Click()
    Form1.BackColor = &H80000005
    Image2.Picture = LoadPicture("d:\kk55.jpg")
    DoEvents
    Form1.PrintForm
End Sub

Answer 7

楼上的兄弟   我比较菜  比如说我想加一个背景  背景在D盘  名字是111.jpg
能给我个完整的代码么

Answer 8

Private Sub Command1_Click()
    Me.BackColor = &H80000005
    Set Me.Picture = LoadPicture("d:\111.jpg")
    Me.PrintForm
End Sub

Answer 9

晕  你看我的题目已经说的很清楚了
“我想打印这个窗体  但是打印不出背景  上面Image2.Picture = LoadPicture("d:\kk55.jpg") 
是窗体的外边框  背景代码我没有添加 因为添哪都打不出来  
请教大家应该添哪  添什么 
多谢了”
都说了背景代码没有添加  因为我不知道添哪   比如说我想加一个背景  背景在D盘  名字是111.jpg 
 大哥帮帮忙把你的代码添到我的代码里去吧 呵呵
我太菜了 不知道往哪里添
多谢多谢

Answer 10

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 
Set Form1.Picture = LoadPicture("d:\111.jpg")
Form1.PrintForm 
Command1.Enabled = False 
Command3.Enabled = False 

Answer 11

直接用这个Form1.PrintForm +打不了颜色，你在加上颜色就OK了

Answer 12

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