Print form question

I got the code below from hack. Thank you hack. I have a question.. I want to print the form1. I don't want any command button on form1.

How I can print the form1 If I put the command button on form 2 ?

Code:

---

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
 ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Declare Sub ReleaseCapture Lib "user32" ()
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 Command1_Click()



Dim lWidth As Long, lHeight As Long
    Clipboard.Clear
    Call keybd_event(VK_MENU, 0, 0, 0)
    Call keybd_event(VK_SNAPSHOT, 0, 0, 0)
    DoEvents
    Call keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0)
    Call keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP, 0)
   
    Printer.Print
    If Width > Printer.ScaleWidth Then
        lWidth = Printer.ScaleWidth
        lHeight = (Printer.ScaleWidth / Width) * Height
    Else
        lWidth = Width
        lHeight = Height
    End If
   
    Printer.PaintPicture Clipboard.GetData, 0, 0, lWidth, lHeight
    Printer.EndDoc

End Sub

---

I use code above to print the form1. In form1 , I have command button1. After clicking the command button, It print the form1 but include the commnd button. How I can invisible that command button so that I can print the form1 ?

Quote:

---

Originally Posted by matrik02

I use code above to print the form1. In form1 , I have command button1. After clicking the command button, It print the form1 but include the commnd button. How I can invisible that command button so that I can print the form1 ?

---

Did you try making the command button invisible (Command1.Visible = False) right after the _Click() and then make it visible (Command1.Visible = True) right before End Sub?

Quote:

---

Originally Posted by Code Doc

Did you try making the command button invisible (Command1.Visible = False) right after the _Click() and then make it visible (Command1.Visible = True) right before End Sub?

---

This is about the only way you could do it as the code is form dependent.

It still capture the command button. How to invisible that button after click command button. I want to print the form but it also printing the button. :bigyello:

Code:

---

Private Sub Command2_Click()
      ' Capture the client area of the form.
        Command2.Visible = False
        Form40.Height = Form10.Height
        Form40.Width = Form10.Width
        Set Form40.Picture1.Picture = Nothing
        Set Form40.Picture1.Picture = CaptureClient(Me)
     
        Form40.Picture1.Height = Form10.Height
        Form40.Picture1.Width = Form10.Width
          ' Print the current contents of the picture box.
        MsgBox "Peta akan dicetak", vbInformation, "Cetak..."
        PrintPictureToFitPage Printer, Form40.Picture1.Picture
        Printer.EndDoc
        Command2.Visible = True
        Form40.Show


End Sub

---

Code:

---

      '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
      '
      ' CaptureClient
      '    - Captures the client area of a form.
      '
      ' frmSrc
      '    - The Form object to capture.
      '
      ' Returns
      '    - Returns a Picture object containing a bitmap of the form's
      '      client area.
      '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
      '
      Public Function CaptureClient(frmSrc As Form) As Picture
        ' Call CaptureWindow to capture the client area of the form given
        ' its window handle and return the resulting Picture object.
        Set CaptureClient = CaptureWindow(frmSrc.hwnd, True, 0, 0, _
            frmSrc.ScaleX(frmSrc.ScaleWidth, frmSrc.ScaleMode, vbPixels), _
            frmSrc.ScaleY(frmSrc.ScaleHeight, frmSrc.ScaleMode, vbPixels))
      End Function

---