command button

[wolwaren]

merhaba değerli kod yazarlarım bir command buttona web sayfası adresini açtırıp o web sayfasını nasıl yazdırırız.
mesela www.hotmail.com adresini açacak ve içeriğini yazdıracak.

 

[İhsan Tank]

merhaba değerli kod yazarlarım bir command buttona web sayfası adresini açtırıp o web sayfasını nasıl yazdırırız.
mesela www.hotmail.com adresini açacak ve içeriğini yazdıracak.

Merhaba

Option Explicit
Private Sub CommandButton1_Click()
Dim ts
ts = MsgBox("Hotmail Sitesini Açıyorum", vbYesNo, "Onay")
If ts = vbNo Then Exit Sub
Shell "explorer.exe http://www.hotmail.com", 1
MsgBox "Hotmail Sitesini Açtım", vbInformation, "Bitiş"
End Sub

Bunu dener misiniz

 

[wolwaren]

hocam bunu buldum çalışıyo

ActiveWorkbook.FollowHyperlink Address:="your web link"


ama açılan sayfayı yazdıramıyorum