Soru windows 10 ile excel 2010 - papersize hatası

[seckinb]

Private Sub CommandButton10_Click()

Dim recete As Worksheet
Set recete = ThisWorkbook.Sheets("recete")

    With ActiveSheet.PageSetup
        .PrintArea = "$B$2:$H$36"
        .FitToPagesWide = 1
        .Orientation = xlPortrait
        .PaperSize = xlPaperA5
        
    End With

    
recete.PrintOut

End Sub

windows 7 bilgisayarlarda bu formül çalışırken
aynı dosyayı windows 10 ile açtığımda

" .PaperSize = xlPaperA5"
bu kod ile hata alıyorum. çıkardığım takdirde çalışıyor.
sizce nasıl yapmalıyım? acaba eksik dll mi var ?_

 

[YUSUF44]

Dosyanızda makro kaydetmeyi çalıştırın ve kağıt tipini A5 olarak belirleyip makro kaydetmeyi bitirin. Kaydedilen makro kodları ile mevcut kodlarınızı karşılaştırarak sonuç alırsınız diye düşünüyorum.

 

[seckinb]

yazıcı sürücüsünden kaynaklanıyormuş.
A5 sayfa tanımlı olmadığı için hata alıyormuşum.

Yazıcının sürücüsünü yükleyince yazdırma ile ilgili aldığım hata çözüldü.