Saved pdf from worksheet doesnt show all the page

[ipbr21054]

I have a worksheet where i enter values then save as pdf.
When i open the folder to view / print pdf all is fine.

I needed to make a duplicate for another customer & have made row / column sizes the sam BUT when i view the pdf i only see half the page ?

This is the code i use to create pdf but what / where should i be looking for the issue.
Thanks

Private Sub Generate_Pdf_Click()
    Dim strFileName As String
    
    strFileName = "C:\Users\Ian\Desktop\GRASS CUTTING\CURRENT GRASS SHEETS\CLAUDIA MCVIE\" & "INVOICE " & Range("L4").Value & " " & Format(Range("L13"), "dd-mm-yyyy") & ".pdf"
                          
    If Dir(strFileName) <> vbNullString Then
        MsgBox "GENERATED PDF INVOICE" & vbNewLine & vbNewLine & "INVOICE " & Range("L4").Value & vbNewLine & vbNewLine & "WAS NOT SAVED AS IT ALLREADY EXISTS", vbCritical + vbOKOnly, "GENERATE PDF FILE MESSAGE"
        Exit Sub
    End If
    
    With ActiveSheet
        .PageSetup.PrintArea = "$F$2:$N$61"
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
        pdf = MsgBox("GENERATED PDF INVOICE" & vbNewLine & vbNewLine & "INVOICE " & Range("L4").Value & vbNewLine & vbNewLine & "WAS SAVED SUCCESSFULLY", vbInformation + vbOKOnly, "GENERATE PDF FILE MESSAGE")
                                
        Range("L4").Value = Range("L4").Value + 1 'INVOICE IS INCREMATED BY 1
        ActiveWorkbook.Save
        
    End With
End Sub

 

[jkpieterse]

I assume the part you want exported to PDF is this: $F$2:$N$61 ?

 

[ipbr21054]

Yes but bearing in mind i copied an existing sheet which works fine so somewhere on the sheet must be a different setting etc

 

[jkpieterse]

Do the sheets have the same print settings (margins, zoom%, headers and footers, etc.)?

 

[ipbr21054]

All the same as taken from another sheet & i also checked it afterwards just in case

 

[jkpieterse]

Perhaps you can remove sensitive information from both worksheets and upload a workbook with them to a file sharing facility and give us a link to test?

 

[ipbr21054]

Now done.
I found the setting for page breaks which sorted it

Thanks