Tanımlı olmayan eylemi atlamak

[EKREM1661]

Saygıdeğer Arkadaşlar..! Aşağıdaki kodu, bir makro dizesi içerisinde kullanıyorum. (sayfayı A5 ebadında yazdırmak için)
....
With ActiveSheet.PageSetup
.PaperSize = xlPaperA5
End With
....
Fakat, başka bir bilgisayarda eğer A5 tanımlanmamışsa, tabii ki doğal olarak hata veriyor.

Eğer; A5 kağıt ebadı tanımlı değilse, PaperA4 kodunu çalıştırmayıp, PaperA4 olarak kod çalıştırsın..olabilir mi? (yani, maksat hata verdirmeden alternatif sonuca ulaşmak)

 

[Ferhat Pazarçevirdi]

Kodunuzun ilgili parçasını şu şekilde değiştiriniz.

On Error Resume Next
With ActiveSheet.PageSetup
    .PaperSize = xlPaperA5
    If Err.Number <> 0 Then
[COLOR=DarkGreen]       'Mesaj kutusu satırını isterseniz silebilirsiniz[/COLOR]
        MsgBox "Aktif printer A5'i desteklemiyor" & vbLf & _
               "A4 olarak basım gerçekleşecek", _
                   vbInformation, _
                      "Bilgilendirme"
        .PaperSize = xlPaperA4
    End If
End With
On Error GoTo 0

.