Yazıcıya gönderilecek bilgileri hücreden almada hata

[Tevfik_Kursun]

Merhaba Arkadaşlar,
30 Ağustos Zafer Bayramımız Kutlu Olsun.
Yazıcıya gönderilecek bilgileri hücreden alma işlemi yapmak istiyorum.

W10 hücresinde xlLandscape
W11 hücresinde xlPaperA5
W12 hücresinde 120 yazılı

    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .Orientation = [W10]
        .PaperSize = [W11]
        .Zoom = [W12]
    End With
    Application.PrintCommunication = True

False - True ile biten satırlarda sorun yok, ama bu satırlarda 1004 hata numarası veriyor. Sevmediği bir şey var, ama ne?
Saygılarımla

 

[Asri]

Aldığınız değer bir text değer olduğu için hata veriyor.
Aslında excel tarafından o ifadenin sayısal bir karşılığı var.

aşağıdaki şekilde denerseniz olacaktır.
Buradaki if [W10]="Landscape" then deki Landscape yazısı herhangi bir değer. Değiştirilebilir. Yatay, dikey v.b.

Sub deneme()
Application.PrintCommunication = False
  If [W10] = "xlLandscape" Then
      ActiveSheet.PageSetup.Orientation = xlLandscape
  Else
      ActiveSheet.PageSetup.Orientation = xlPortrait
  End If
 ActiveSheet.PageSetup.Zoom = 0 + [W12]
 Application.PrintCommunication = True
End Sub

 

[Tevfik_Kursun]

Merhaba Asri Hocam,
İlginize teşekkür ederim. Benzer şekilde W10 ve W11 i çözümlemiştim, teyidinizle de rahatladım. Ama israrla W12 için zoom oluşturulamadı deyip 1004 hatasını vermeye devam etti.
Saygılarımla

 

[Asri]

Kod güncellendi. Bu şekilde dener misiniz?

 

[Tevfik_Kursun]

Harikasınız Sayın Asri Hocam,
0 + [W12] sayı haline getiriyor. Hiç karşılaşmamıştım. Çok teşekkür ederim.
Saygılarımla