Can you check my code please

[ipbr21054]

Hi,
I have an excel sheet of which i would like to copy a specific range, then save that range as a pdf file on the desktop.
When the file is saved it just needs to be called LR CODES

The range to copy is A1:K16

I have the code below but not entirely sure its correct,because i copied it from another page & removed some items etc.

Private Sub CommandButton1_Click()    Dim strFileName As String
    
    strFileName = "C:\Users\Ian\Desktop\ ".pdf"
    If Dir(strFileName) <> vbNullString Then
        MsgBox "SHEET " & " WAS NOT SAVED AS IT ALLREADY EXISTS", vbCritical + vbOKOnly
        Exit Sub
    End If
    
    With ActiveSheet
        .PageSetup.PrintArea = "$A$1:$K$16"
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
        MsgBox "SHEET " & " WAS SAVED SUCCESSFULLY", vbInformation + vbOKOnly
    End With
End Sub

 

[Logit]

.

Option Explicit


Sub SveRngPDF()
Sheets("Sheet1").Range("A1:K16").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\Users\Ian\Desktop\Sheet1.pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
End Sub

 

[ipbr21054]

Hi,
I have changed the sheet name & also pdf output name but when i press the button nothing is saved on the desktop.

Option ExplicitSub SveRngPDF()
Sheets("DR SITE").Range("A1:K16").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\Users\Ian\Desktop\LRCODE.pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
End Sub

 

[ipbr21054]

Hi,
This has worked for me.
Can you advise that when it saves should the pdf already exist show msgbox "File already exists"

Private Sub CommandButton1_Click()Range("A1:K16").ExportAsFixedFormat xlTypePDF, "C:\Users\Ian\Desktop\Test.pdf"
End Sub

 

[Logit]

Option Explicit


Function FileExists(FilePath As String) As Boolean
Dim TestStr As String
    TestStr = ""
    On Error Resume Next
    TestStr = Dir(FilePath)
    On Error GoTo 0
    If TestStr = "" Then
        FileExists = False
    Else
        FileExists = True
    End If
End Function


Sub SveRngPDF()
Dim Filename As String
Filename = "[COLOR=#333333]C:\Users\Ian\Desktop\Test.pdf[/COLOR]"


If FileExists(Filename) Then
    MsgBox "Exists"
    Exit Sub
Else
    MsgBox "Doesn't Exists"
End If
   
Sheets("Sheet1").Range("A1:K16").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "[COLOR=#333333]C:\Users\Ian\Desktop\Test.pdf[/COLOR]", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True


End Sub

 

[ipbr21054]

Hi,
I must be applying this wrong as nothing happens at all when i press the command button.

I copied the code above but changed Sheet1 to DR SITE Then put in inside the command button code,so my code is like below.

I keep getting Expected End Sub

Option ExplicitPrivate Sub CommandButton1_Click()


Function FileExists(FilePath As String) As Boolean
Dim TestStr As String
    TestStr = ""
    On Error Resume Next
    TestStr = Dir(FilePath)
    On Error GoTo 0
    If TestStr = "" Then
        FileExists = False
    Else
        FileExists = True
    End If
End Function




Sub SveRngPDF()
Dim Filename As String
Filename = "C:\Users\Ian\Desktop\Test.pdf"




If FileExists(Filename) Then
    MsgBox "Exists"
    Exit Sub
Else
    MsgBox "Doesn't Exists"
End If
   
Sheets("DR SITE").Range("A1:K16").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\Users\Ian\Desktop\Test.pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True


End Sub

 

[Logit]

.
This is the only thing I see from your last post that appears incorrect :

[COLOR=#333333]Option ExplicitPrivate Sub CommandButton1_Click()[/COLOR]

Should be :

[COLOR=#333333]Option Explicit

Private Sub CommandButton1_Click()[/COLOR]

 

[ipbr21054]

Hmmm,
Still the same.
Here is a screen shot.

 

[Logit]

.
Option Explicit always needs to be at top of page. First thing.

Try moving it and see what happens.

 

[ipbr21054]

OK done that but i still see the message.
This is shown in yellow

Private Sub CommandButton1_Click()

Reason being isnt the code supposed to be inside like this.

Private Sub CommandButton1_Click()
PUT THE CODE HERE
End Sub