coba pake fungsi API berikut :
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_SNAPSHOT = &H2C
Private Sub printScreen()
keybd_event VK_SNAPSHOT, 1, 0, 0
End Sub
Private Sub altPrintScreen()
keybd_event VK_SNAPSHOT, 0, 0, 0
End Sub
trus tinggal panggil prosedur printScreen atau altPrintScreen, tapi ini belum
sy coba jg berhasil atw enggak maklum g ada printer :D
Selamat mencoba :)
http://coding4ever.wordpress.com
--- In [email protected], ABDUL BASIR <basirna...@...> wrote:
>
> To All
> Tolong dong gimana cara cetak tampilan layar <print screen> di vb6
>
> misal di klik tombol ok, maka tampilan yg ada di layar akan tercetak otomatis
>
> sudah pakai metode
>
> SendKeys "{%}" + "{PRTSC}"
>
> atau
>
> SendKeys "%{PRTSC}", True
>
> tp masih tetap gak bisa
>
>
> Help Me
> thx
>
>
> Get your preferred Email name!
> Now you can @ymail.com and @rocketmail.com.
> http://mail.promotions.yahoo.com/newdomains/aa/
>
> [Non-text portions of this message have been removed]
>
