kağıt ebadı

[halit3]

benim yazıcım yok ama ofis prağramının sanal yazcısında bu kod çalışıyor.

Sub YAZDIR()
Sheets("ANA SAYFA").Select
ActiveSheet.PageSetup.PaperSize = xlPaperA5
'ActiveSheet.PageSetup.PaperSize = xlPaperA4
'ActiveSheet.PageSetup.PaperSize = xlPaperLetter 'Kağıt boyutunu ayarla
For X = 1 To [B3] Step 2
Range("B1") = X
If X = [B3] And [B3] Mod 2 <> 0 Then
Sheets("YAZDIR").PageSetup.PrintArea = "$A$1:$G$24"
Else
Sheets("YAZDIR").PageSetup.PrintArea = "$A$1:$G$48"
End If
Sheets("YAZDIR").PrintOut Copies:=1, Collate:=True
Next
MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[ziya]

Merhaba,
Çıktı alınacak kağıdın 11x24 sürekli form olduğunu makro ile tanımlayabilirmiyiz.
Örnek dosya ektedir, yardımlarınıza peşinen teşekkür ederim.

Sanıyorum makro ile sorunun çözümü yok.
Bildiğiniz başka bir yöntem olabilir ümidiyle sorumu güncelliyorum.
Selamlar,

 

[halit3]

Sanıyorum makro ile sorunun çözümü yok.
Bildiğiniz başka bir yöntem olabilir ümidiyle sorumu güncelliyorum.
Selamlar,

Aşağıdaki linkde bir çalışma var

http://www.excel.web.tr/f48/a4-a5-onizleme-ve-yazdyrma-makrolary-t43929.html

 

[ziya]

Sn halit3
İlginize teşekkür ederim.
Selamlar,

 

[halit3]

Sn halit3
İlginize teşekkür ederim.
Selamlar,

iyi çalışmalar

 

[ziya]

Merhaba,
Kağıt boyutları karşılığı LETTER, örnekleri inceleyerek ve makroda satırın yerini değiştirerek denedim sonuç alamadım. Doğru makro aşağıdaki gibi olacak sanıyorum ama başarılı olamadım. Hata veren satırı turuncu renk ile işaretledim. Örnek dosya ilk mesajdadır.

Sub Yazdir()
Sheets("ANA SAYFA").Select
PageSetup.PaperSize = xlPaperLetter 'Kağıt boyutunu ayarla
For X = 1 To [B3] Step 2
Range("B1") = X
If X = [B3] And [B3] Mod 2 <> 0 Then
Sheets("YAZDIR").PageSetup.PrintArea = "$A$1:$G$24"
Else
Sheets("YAZDIR").PageSetup.PrintArea = "$A$1:$G$48"
End If
Sheets("YAZDIR").PrintOut Copies:=1, Collate:=True
Next
MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[halit3]

Merhaba,
Kağıt boyutları karşılığı LETTER, örnekleri inceleyerek ve makroda satırın yerini değiştirerek denedim sonuç alamadım. Doğru makro aşağıdaki gibi olacak sanıyorum ama başarılı olamadım. Hata veren satırı turuncu renk ile işaretledim. Örnek dosya ilk mesajdadır.

Sub Yazdir()
Sheets("ANA SAYFA").Select
PageSetup.PaperSize = xlPaperLetter 'Kağıt boyutunu ayarla
For X = 1 To [B3] Step 2
Range("B1") = X
If X = [B3] And [B3] Mod 2 <> 0 Then
Sheets("YAZDIR").PageSetup.PrintArea = "$A$1:$G$24"
Else
Sheets("YAZDIR").PageSetup.PrintArea = "$A$1:$G$48"
End If
Sheets("YAZDIR").PrintOut Copies:=1, Collate:=True
Next
MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

benim yazıcım yok ama ofis prağramının sanal yazcısında bu kod çalışıyor.

Sub YAZDIR()
Sheets("ANA SAYFA").Select
ActiveSheet.PageSetup.PaperSize = xlPaperA5
'ActiveSheet.PageSetup.PaperSize = xlPaperA4
'ActiveSheet.PageSetup.PaperSize = xlPaperLetter 'Kağıt boyutunu ayarla
For X = 1 To [B3] Step 2
Range("B1") = X
If X = [B3] And [B3] Mod 2 <> 0 Then
Sheets("YAZDIR").PageSetup.PrintArea = "$A$1:$G$24"
Else
Sheets("YAZDIR").PageSetup.PrintArea = "$A$1:$G$48"
End If
Sheets("YAZDIR").PrintOut Copies:=1, Collate:=True
Next
MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[ziya]

Merhaba,
Sorunum sayfa adı tanımlamamakmış sanıyorum, error veren satır başına sayfa adını yazdığımda sorun çözüldü.
Tekrar teşekkür ederim.
Selamlar,

 

[halit3]

Merhaba,
Sorunum sayfa adı tanımlamamakmış sanıyorum, error veren satır başına sayfa adını yazdığımda sorun çözüldü.
Tekrar teşekkür ederim.
Selamlar,

iyi çalışmalar