A4, A5 önizleme ve yazdırma makroları

[baknediycem]

merhaba
**ben sayfa yapısını ,kağıdı vs. 'yi A5 yapmama rağmen aşağıdaki kodlar A4 'e yönelik çalışıyor. ben A5 kağıdıma bu makro kodlarını nasıl uyarlarım.
***Ayrıca evdeki bilgisayarımda (office 2002) 'de kağıt boyutları arasında A5 yok, sadece
Letter,
Tabloid,
Legal,
A3 ,
A4 ,
A3 Extra,
A4 Small,
A4 Transverse,
B5,
Lettersmall,
Letter Transverse,
Tabloid extra,
oversize,
oversizeplus,
C10 envelope,
DL envelope var
bunlardan hangisi A5'e denk gelmekte?

yardımcı olursanız memnun olurum.
bütün üye arkadaslarıma kolay gelsin

Sub önizleme()
'Worksheets("SEVK").PageSetup.PrintArea = RefEdit1.Value
'Unload UserForm1
Worksheets("SEVK").PrintPreview
Worksheets("SEVK").PageSetup.PrintArea = ""
End Sub
Sub Sayfayapısı()
'sayfa yapısı diyalog nesnesini göstermek için
Application.Dialogs(xlDialogPageSetup).Show
End Sub
Sub yaz()
'sayfayı yazdırmak için kullnılacak kod
Worksheets("SEVK").PrintOut Copies:=1
End Sub
Sub Yazdır()
Worksheets("SEVK").Select
Application.Dialogs(xlDialogPrint).Show
Worksheets("Form").Select
End Sub
Sub dişYazdır()
Worksheets("DİŞ").Select
Application.Dialogs(xlDialogPrint).Show
Worksheets("Form").Select
End Sub
Sub A4önizlem()
'Worksheets("SEVK").PageSetup.PrintArea = RefEdit1.Value
'Unload UserForm1
Worksheets("SEVK2").PrintPreview
Worksheets("SEVK2").PageSetup.PrintArea = ""
End Sub
Sub A4yazdır()
Worksheets("SEVK2").Select
Application.Dialogs(xlDialogPrint).Show
Worksheets("Form").Select
End Sub
Sub dişönizleme()
'Worksheets("SEVK").PageSetup.PrintArea = RefEdit1.Value
'Unload UserForm1
Worksheets("Diş").PrintPreview
Worksheets("Diş").PageSetup.PrintArea = ""
End Sub
Sub A4dişönizleme()
'Worksheets("SEVK").PageSetup.PrintArea = RefEdit1.Value
'Unload UserForm1
Worksheets("DİŞ2").PrintPreview
Worksheets("DİŞ2").PageSetup.PrintArea = ""
End Sub

 

[baknediycem]

değerli arkadaslarım

yardımcı olacak kimse yok mu? Lütfen bilgi verin.
benim için önemli, kendim farklı yontemler denememe ragmen yapamadım.

 

[baknediycem]

degerli arkadaslar,

sizin için kolay bir soru oldugu için mi yanıtlamıyorsunuz.

 

[Zeki Gürsoy]

Merhaba,

Sub Yazdir()
    With Sheets("SEVK")
        .PageSetup.PaperSize = xlPaperA5 [COLOR=green]'Kağıt boyutunu ayarla[/COLOR]
        .PageSetup.PrintArea = RefEdit1.Value [COLOR=green]'Yazdırma alanı[/COLOR]
        .PrintPreview [COLOR=green]'Önizle, pencere kapanana kadar bu satırda bekler[/COLOR]
        .PrintOut Copies:=1[COLOR=green] 'Yazdır[/COLOR]
    End With
End Sub

 

[baknediycem]

cok tesekkur ederim sn. anemos.

bir ricada daha bulunacagım: sorumda listelediğim kağıt boyutlarından hangisi A5' e denk gelmektedir?

 

[Zeki Gürsoy]

O listede yok sanırım. A5, boyutları bilinen kağıt tipi olduğu için listede A5 olarak geçmesi gerekirdi. İhtimal, A5'i B5 olarak görmüş olmayasınız?