PDF yazıcısını otomatik seçme

[sistem59]

iyi günler aşağıdaki kodda çıktıyı pdf olarak kayıt ediyor ama yazıcılardan OKİ seçili ise harfler çok küçük çıkıyor yani normal PDF formatında çıkmıyor
ben ise yazıcılardan da PDF'yi otomatik seçmesini istiyorum

bu istemediğim bu istediğim

    ' pdf fatura sayfasına kayıt işlemi
    Dim Yol As String
Yol = "C:\dosyalar\Cari Takip\pdf_fatura"
Dim fno
fno = Range("X3") & "  " & Range("B6") & "  " & Format(Date, "dd.mm.yyyy") & "  " & Format(Now, "hh.mm.ss")

ActiveSheet.PageSetup.PrintArea = "A1:L50"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol & "\" & fno & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Application.ScreenUpdating = True
Application.DisplayAlerts = True