![]() |
#1
|
|||
|
|||
![]()
See this code.
This works but Im trying to make the command button im pushing in the sheet, not visible when the sheet has been converted to pdf and attached in outlook. How do I remove the visible command button in the pdf..??? Private Sub CommandButton1_Click() ' Create PDF of active sheet and send as attachment. ' Dim strPath As String, strFName As String Dim OutApp As Object, OutMail As Object 'Create PDF of active sheet only strPath = Environ$("temp") & "\" 'Or any other path, but include trailing "\" strFName = ActiveWorkbook.Name strFName = Left(strFName, InStrRev(strFName, ".") - 1) & "_" & ActiveSheet.Range("D7") & ".pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ strPath & strFName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False 'Set up outlook Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) 'Create message On Error Resume Next With OutMail .to = Range("L13") 'Insert required address here ######## .CC = "" .BCC = "" .Subject = "Interiør solskjerming Tilbud" .Body = "" .Attachments.Add strPath & strFName .Display 'Use only during debugging ############################## '.Send 'Uncomment to send e-mail ############################## End With 'Delete any temp files created Kill strPath & strFName On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End Sub |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Show table list by using chek box command and save document on sharepoint by using command button | Zhibek | Word VBA | 3 | 08-16-2018 06:19 PM |
can't remove page break that isn't visible in nonprinted characters | georgiajmj49 | Word | 8 | 07-19-2018 03:27 AM |
Outlook 'Start Page' Command Button | Wobble | Outlook | 0 | 03-31-2015 04:49 AM |
Help with a Command Button | dkohnken | Word VBA | 5 | 03-18-2015 10:13 PM |
Command Button | knp11 | PowerPoint | 2 | 01-18-2015 01:41 PM |