Hiding Command Buttons before PDF

ksigcajun · #1 05-06-2014, 11:24 AM

Hey everyone! New to the board and looking for some help. I know this is pretty simple, but Im looking to hide a command button when a person clicks the button to PDF. I want a user to click this button, PDF their document and the button will not show on the PDF.

Here is my code and thanks for the helping a newbie!

Code:

Private Sub CommandButton111_Click() 
    Dim outl As Object 
    Dim Mail As Object 
    Dim Msg, Style, Title, Help, Ctxt, Response, MyString 
    Dim PDFname As String 
 
    Msg = "Your Document will be saved as PDF before mailing it as attachment, please agree?" 
    Style = vbOKCancel + vbQuestion + vbDefaultButton2 
    Title = "Document" 
    Ctxt = 1000 
    Response = MsgBox(Msg, Style, Title, Help, Ctxt) 
    If Response = vbOK Then 
        ActiveDocument.Save 
        PDFname = ActiveDocument.Path & "\" & "Document.pdf" 
        ActiveDocument.ExportAsFixedFormat OutputFileName:=PDFname, _
          ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, _
          OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument, _
          Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
          CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
          BitmapMissingFonts:=True, UseISO19005_1:=False 
        Set outl = CreateObject("Outlook.Application") 
        Set Mail = outl.CreateItem(0) 
        Mail.Subject = "Document" 
        Mail.HTMLBody = "Document<br> <br> <img src='image.gif'>" 
        Mail.To = "" 
        Mail.Attachments.Add PDFname 
        Mail.Display 
    Else 
        MsgBox "You have chosen not to save PDF and your file will not be sent" 
        Cancel = True 
    End If 
End Sub

macropod · #2 05-06-2014, 04:23 PM

If this is an ActiveX command button, you could pass the processing off to a second macro that handles the PDF creation & emailing. As part of that process, it could delete the command button, then restore it again (via Application.Undo) after the PDF has been created.

PS: When posting code, please use the code tags. They're on the 'Go Advanced' tab at the bottom of this screen.
PPS: You could reduce:

Code:

         ActiveDocument.ExportAsFixedFormat OutputFileName:=PDFname, _
          ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, _
          OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument, _
          Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
          CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
          BitmapMissingFonts:=True, UseISO19005_1:=False

to:

Code:

        ActiveDocument.SaveAs2 FileName:=PDFname, FileFormat:=wdFormatPDF

ksigcajun · #3 05-07-2014, 05:15 AM

Thanks MacroPod. I'll use the code tags from now on.

When you referenced using a second macro to create the PDF and email, plus the delete the command button and add it back, why can't I use the macro I currently have built to do it?

Can't I just add a delete command button function and have it add it back once the PDF has been created and put into an email?

What code would delete a command button and add it back?

Thanks!

macropod · #4 05-07-2014, 05:31 AM

Quote:

Originally Posted by ksigcajun

When you referenced using a second macro to create the PDF and email, plus the delete the command button and add it back, why can't I use the macro I currently have built to do it?

That's just a precaution. I haven't tested it but I was concerned that deleting the button from the macro that runs it might kill the macro. If that doesn't occur, then it should be OK.

Quote:

What code would delete a command button and add it back?

You could use code like:

Code:

Me.CommandButton111.Select
Selection.Delete
'do your printout here
ActiveDocument.Undo

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Command buttons on slidemaster	chcope	PowerPoint	2	06-13-2013 04:30 PM
Check Boxes and Command Buttons	Micky P	Word VBA	0	10-27-2011 01:06 AM
Command Buttons	lorenambrose	Word	0	10-06-2011 11:55 AM
command buttons	ronf	Excel	0	04-28-2006 08:32 AM
command buttons	ronf	Excel	0	12-03-2005 06:26 AM