有那一位高人會用OUTLOOK的巨集將連絡人的住址送到印表機。
正在努力中……
Private Sub CommandButton1_Click()
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olContactItem)
myItem.MailingAddress.PrintOut
End Sub
有那一位高人會用OUTLOOK的巨集將連絡人的住址送到印表機。
正在努力中……
Private Sub CommandButton1_Click()
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olContactItem)
myItem.MailingAddress.PrintOut
End Sub
以VBA控制列印最初由 Kindaiti 發表
Outlook 2002 連絡人, 可以直接列印.
還是你要其他列印方式?
如 ContactItem.BusinessAddress…等
其實我只是要用連絡人印信封,以WORD印出的不符合我國的郵政規定(ZIP-CODE在第一行)
寒假嗎! TRY 看看 !
書籤