پرسش vba حذف حاشیه سفید از خروجی pdf فایل اکسل

[hematinsite]

باسلام . با کد زیر ، از قسمت printarea هر شیت ، یه خروجی جداگانه pdf میگیریم . مشکلی که داره اینه که فایل های خروجی pdf ، حاشیه سفید بسیار داره . لطفا کد زیر را به نحو مقتضی ، اصلاح فرمایید.
تمام این راهها رو رفتم ولی فقط با کد vba میخام بشه
zoom,printarea,scale to fit , software printer , print to file , save as pdf and etc .
و هر چی از کدهای تنظیم حاشیه مثل
.TopMargin = Application.InchesToPoints(0.25)
.RightMargin = 0.2
.BottomMargin = 0.25
.LeftMargin = 0.2
.HeaderMargin = 0.1
.Zoom = False
.FitToPagesTall = 1
.FitToPagesWide = 1
استفاده میکنم ، باز اعمال نمیشه

Option Explicit
Sub Print_PDF()
Dim Awb As Workbook
Dim Snr As Integer
Dim ws As Worksheet
Set Awb = ActiveWorkbook
 
 
For Each ws In Awb.Sheets
    If Not ws.Name = "Sheet1" Then
        'Sheets(ws.Name).Copy
        Awb.Sheets(ws.Name).Copy
        'Sheets(ws.Name).Select
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Awb.Path & "\" & Awb.Sheets(ws.Name).Name & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
      
        ActiveWindow.Close False
    End If
Next ws
End sub