Why is'nt this working? [RESOLVED]

[Pirre001]

I print my form with this code. Everything works, but the checkboxes and commandbuttons are still visible on print out, even if I set the Visible to False? What's wrong?

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
          ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const VK_MENU As Byte = &H12
Private Const VK_SNAPSHOT As Byte = &H2C
Private Const KEYEVENTF_KEYUP = &H2
 
Private Sub Command3_Click()
 
Clipboard.Clear
 
Me.Check1.Visible = False
Me.Check2.Visible = False
Me.Check3.Visible = False
Me.Command1.Visible = False
Me.Command2.Visible = False
 
 
Call keybd_event(VK_SNAPSHOT, 1, 0, 0)
DoEvents
Call keybd_event(VK_SNAPSHOT, 1, KEYEVENTF_KEYUP, 0)
Printer.Orientation = vbPRORLandscape
Printer.PaperSize = vbPRPSA4
Printer.PrintQuality = vbPRPQHigh
 
    Printer.Print ""
    Printer.Print ""
    Printer.Print ""
    Printer.Print ""
    Printer.Print ""
    Printer.Print ""
    Printer.PaintPicture Clipboard.GetData(), 0, 1000, Printer.width - 1000, Printer.Height - 2800
    Printer.EndDoc
 
Me.Check1.Visible = True
Me.Check2.Visible = True
Me.Check3.Visible = True
Me.Command1.Visible = True
Me.Command2.Visible = True
 
End Sub

[temp_12000]

Originally posted by Pirre001
I print my form with this code. Everything works, but the checkboxes and commandbuttons are still visible on print out, even if I set the Visible to False? What's wrong?

maybe try let checkboxes enabled = false?

[leinad31]

Move them underneath an opaque control

[jemidiah]

lol, or try this:

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
          ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const VK_MENU As Byte = &H12
Private Const VK_SNAPSHOT As Byte = &H2C
Private Const KEYEVENTF_KEYUP = &H2
 
Private Sub Command3_Click()
 
Clipboard.Clear
 
Me.Check1.Visible = False
Me.Check2.Visible = False
Me.Check3.Visible = False
Me.Command1.Visible = False
Me.Command2.Visible = False
[b]DoEvents[/b]
 
Call keybd_event(VK_SNAPSHOT, 1, 0, 0)
DoEvents
Call keybd_event(VK_SNAPSHOT, 1, KEYEVENTF_KEYUP, 0)
 
Me.Check1.Visible = True
Me.Check2.Visible = True
Me.Check3.Visible = True
Me.Command1.Visible = True
Me.Command2.Visible = True
 
End Sub

[Pirre001]

Thanks jemidiah,

Now it works!