export sheet as pdf , problem with fitting column and range

[mazan2010]

Good morning all
can advice me for the following code i get from internet that will export sheet name summary to pdf file with name of value from B2
the problem now is
i try to change in code to fit range that i need in exported PDF file and print only range A1:C105 or end of row have value instead of C105
but not working
the code is

Sub PDFActiveSheetNoPromptCheck()


Dim wsA As Worksheet
Dim wbA As Workbook
Dim strName As String
Dim strPath As String
Dim strFile As String
Dim strPathFile As String
Dim myFile As Variant
Dim lOver As Long
Dim rng As Range


On Error GoTo errHandler

Set wbA = ActiveWorkbook
Set wsA = ActiveSheet

'get active workbook folder, if saved
strPath = wbA.Path
If strPath = "" Then
  strPath = Application.DefaultFilePath
End If
strPath = strPath & "\"

strName = wsA.Range("B2").Value _
          & " Interpretation "

Set rng = Sheets("Summery").Range("A1:C105")   



'create default name for savng file
strFile = strName & ".pdf"
strPathFile = strPath & strFile

If bFileExists(strPathFile) Then
  lOver = MsgBox("Overwrite existing file?", _
    vbQuestion + vbYesNo, "File Exists")
  If lOver <> vbYes Then
    'user can enter name and
    ' select folder for file
    myFile = Application.GetSaveAsFilename _
      (InitialFileName:=strPathFile, _
          FileFilter:="PDF Files (*.pdf), *.pdf", _
          Title:="Select Folder and FileName to save")
    If myFile <> "False" Then
      strPathFile = myFile
    Else
      GoTo exitHandler
    End If
  End If
End If

'export to PDF in current folder
wsA.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    FileName:=strPathFile, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

'confirmation message with file info
MsgBox "PDF file has been created: " _
  & vbCrLf _
  & strPathFile

exitHandler:
    Exit Sub
errHandler:
    MsgBox "Could not create PDF file"
    Resume exitHandler
End Sub

Function bFileExists(rsFullPath As String) As Boolean
  bFileExists = CBool(Len(Dir$(rsFullPath)) > 0)
End Function

[Sintek]

Sub J3v16()
Dim File As String
With Sheets("Summary")
    File = ThisWorkbook.Path & "\" & .Range("B2").Value & " Interpretation "
    .Range("A1:C" & .Cells(.Rows.Count, 3).End(xlUp).Row).ExportAsFixedFormat xlTypePDF, File, xlQualityStandard
End With
End Sub

[mazan2010]

Dear sintek
thank you so much for your very simple and smart code
i have some note
1- its not give message for file present or not , its overwrite without any message
2- PDF file created have whole range even empty row , can neglect empty row from range

[Sintek]

1- its not give message for file present or not , its overwrite without any message

If pdf already exists, what must happen?

2- PDF file created have whole range even empty row , can neglect empty row from range

Supply sample file and specify exactly what range must be exported...
See Top Yellow banner regarding sample file...

[mazan2010]

1- if already exist , show box say file present if you need to overwrite or to save as with different name
2-as in attached photo you can see result of file that have empty row printed
the whole range is A1:C105 but not all the time this range have data sometimes like in attached example have only data till C56 and the rest is empty

[Sintek]

Images mean nothing!!!
As I said previous post...

Supply sample file and specify exactly what range must be exported...
See Top Yellow banner regarding sample file...

[mazan2010]

finally i find the error as i find some cell is merged in my file
than you so much for your help and solution

[Sintek]

Thanks for rep + ...