Dosyanızdaki yazdir isimli kodu aşağıdaki ile değiştirerek deneyin.
[vb:1:f7fc7edd24]Sub Yazdır()
For a = 24 To 33
[b4] = Cells(a, "a")
For b = 2 To 10
Cells(12, b + 2) = Cells(a, b)
Next
ActiveSheet.PageSetup.PrintArea = "$A$1:$L$17"
ActiveSheet.PrintOut Copies:=2
Next
End Sub
[/vb:1:f7fc7edd24]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.