İstediğimiz sütunları yazdırmak

[voodoograph]

Merhaba arkadaşlar,

10 sayfalık verinin olduğu bir sayfam var diyelim. Ben yalnızca A, B, C, I, J, K, L, M sütunlarını yazdırmak istiyorum. Başlık yinelenecek. Butona bastığımda yazdırılacak sayfa sayısını soracak ve sayfa sayısını girip tamam dediğimde istediğim sütunların bulunduğu sayfaları basacak.

Bu şuan üzerinde uğraştığım ancak çözüm bulamadığım bir konu. Yardımcı olacak arkadaşlara şimdiden teşekkürler.

Saygılar....

 

[AS3434]

Sayın voodoograph

Dosyayı inceleyin. O1 hücresindeki formüle dikkat edin.


NOT. Kaç nüsha yazdırılacağını sordurmak istemişsiniz. Soruyu daha dikkatli okuyunca anladım. Dosyayı revize ettim.

 

[voodoograph]

Eline sağlık AS3434. Akşam tam olarak üstünde duracağım, sanırım bu kod düzeni işimi görecektir.

Bunun dışında farklı örnekler geliştirmekde fayda var. Birçok arkadaşımızın bu tür yazdırma özelliğine ihtiyacı olabilir.

Tekrar teşekkürler... Saygılar...

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.

Sub yazdir()
sayi = InputBox("Sayfa Adedini Giriniz..:", "YAZDIRMA")
If MsgBox("[ " & sayi & " ] kez yenilenecek" & vbLf _
& "Yazdırmak İstiyormusunuz.?", vbYesNo) = vbNo Then Exit Sub
If sayi = "" Or sayi = 0 Or Not IsNumeric(sayi) Then Exit Sub
Range("E:H").EntireColumn.Hidden = True
    With ActiveSheet.PageSetup
        .PrintArea = "A1:M" & Cells(65536, "A").End(xlUp).Row
        .PrintTitleRows = "$1:$1"
        .RightFooter = "Sayfa &P / &N"
        .FirstPageNumber = xlAutomatic
        .Orientation = xlPortrait
        .Zoom = 90
    End With
ActiveSheet.PrintOut Copies:=sayi
Range("E:H").EntireColumn.Hidden = False
End Sub

 

[voodoograph]

Eline sağlık Orion2. Bir noktada şaşırdım soru sorduğunda 2 yazıyorum mesela. O an aynı sayfayı "2 defamı yazdırayım" diye soruyor? Yoksa 1 ve 2. sayfa yazdırılacak mı diyor?

 

[Orion1]

Eline sağlık Orion2. Bir noktada şaşırdım soru sorduğunda 2 yazıyorum mesela. O an aynı sayfayı "2 defamı yazdırayım" diye soruyor? Yoksa 1 ve 2. sayfa yazdırılacak mı diyor?

eğer 2 yazarsanız , 2 defa yazdıralacaktır.