PDF Button is breaking other Macro Buttons

**georgedixon** · 09-05-2017, 05:03 PM

Hi, I have made a spreadsheet that includes several navigational buttons as well as a button that turns certain regions of the spreadsheet into a PDF. I have noticed that after the use of the "PDF Button", the other buttons will suddenly start to operate slowly, and will change size very strangely (even though they are set to not change size or move with cells). I am thinking it has something to do with the code that I am using. I was wondering if anyone could provide some insight as to why this is happening. The PDF Buttons code is below as well as the images of how the other buttons are supposed to look & what happens to them as they shrink. Thanks in advance, for any help.


Sub PrintPDF()

    Dim MyPath
    Dim MyFolder
Sheets("Summary").Move Before:=Sheets(1)
    Sheets("Breakdown").Move Before:=Sheets(2)
    Sheets("Entry").Move Before:=Sheets(3)
Sheets(Array("Entry", "Breakdown", "Summary")).Select
  With ActiveSheet.PageSetup
        .Orientation = xlPortrait
        .Zoom = False
        .FitToPagesWide = 1
        .CenterHorizontally = True
        .CenterVertically = True
        .BottomMargin = 0
        .TopMargin = 0
        .RightMargin = 0
        .LeftMargin = 0
        
    End With
  
    
    
    MyPath = ThisWorkbook.Path
    MyFolder = Application.GetSaveAsFilename(MyPath, "PDF Files (*.pdf),*.pdf")


    If MyFolder = False Then Exit Sub
     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                    Filename:=MyFolder, _
                                    Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, _
                                    OpenAfterPublish:=True
                                    
  Sheets("Entry").Move Before:=Sheets(1)
    Sheets("Breakdown").Move Before:=Sheets(2)
    Sheets("Summary").Move Before:=Sheets(3)
                                    
Sheets("Entry").Select
End Sub

**davesexcel** · 09-05-2017, 05:17 PM

You may have to put the button back in it's proper spot, it is a pain, they will move or get bigger, been going on for years.

Practice with this on a blank sheet, create a button, it should default to Button 1, move and resize the button, it should always go back to the correct range E1:F2 in this code.

Sub PutBtn1_BackInItsSpot()
    Dim sh As Shape
    Dim Prng As Range

    Set Prng = Range("E1:F2")
    Set sh = ActiveSheet.Shapes("Button 1")

    With sh
        .Left = Prng.Left
        .Top = Prng.Top
        .Height = Prng.Height
        .Width = Prng.Width
    End With

End Sub

**shg** · 09-05-2017, 05:26 PM

You'd be happier if you switched to form control buttons or autoshapes.

**georgedixon** · 09-05-2017, 05:41 PM

Thanks for your help

PDF Button is breaking other Macro Buttons

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

PDF Button is breaking other Macro Buttons

Re: PDF Button is breaking other Macro Buttons

Re: PDF Button is breaking other Macro Buttons

Re: PDF Button is breaking other Macro Buttons

Thread Information

Users Browsing this Thread

Similar Threads

I need my macro buttons to only be available if the previous button has been pressed

Macro buttons and Option buttons in same ark bugs?

Consolidating Multiple Macro Buttons in one worksheet into 1 Button

[SOLVED] Mismatch error 13 breaking command button

Hide/Show other macro buttons with a macro button

Add-In with Button and Sub-buttons

Unable to edit buttons (Spin Button, Command button etc.)

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions