Print form question

[matrik02]

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 ?

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

[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 ?

[Code Doc]

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?

[Hack]

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.

[matrik02]

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.

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

      '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
      '
      ' 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