yazdırma makrosu

[Hacı Bayram ÖZKAN]

SAYIN; Evren hoca bu dosyanın yazdırma makrosunu siz yazmıştınız, elinize sağlık. Ama burada şu sorunla karşılaştım, arananlar sayfasında kaç satır yazılı ise diğer sayfalarda da o kadar satır, karşıma çıkıyor, bu makronun mantığını anlayamadım, bakabilirmisin teşekkürler

 

[Orion1]

SAYIN; Evren hoca bu dosyanın yazdırma makrosunu siz yazmıştınız, elinize sağlık. Ama burada şu sorunla karşılaştım, arananlar sayfasında kaç satır yazılı ise diğer sayfalarda da o kadar satır, karşıma çıkıyor, bu makronun mantığını anlayamadım, bakabilirmisin teşekkürler

.......printare="......." & sheets("[B][COLOR="Red"]ARANAN[/COLOR][/B]")

Burada aranan yere hangi sayfayı yazdırıyorsanız onu yazacaksınız.İPTAL ise İPTAL yazacaksınız.Mantığı gayet basit.

 

[Hacı Bayram ÖZKAN]

hocam sorumu yanlış anladınız, kodları incelerseniz onları yazdım, ama sonuçta diğelim ki iptal sayfasından 10 satır yazdım, arananlarda da 3 satır yazmış olayım, ben iptalleri yazdırınca sadece 3 satır yazıyor oysa ki 10 yazması lazım değilmi, bütonla basınca bu farkı göreceksiniz.

 

[Hacı Bayram ÖZKAN]

Evren bey; sorumu görmediniz galiba

 

[Orion1]

hocam sorumu yanlış anladınız, kodları incelerseniz onları yazdım, ama sonuçta diğelim ki iptal sayfasından 10 satır yazdım, arananlarda da 3 satır yazmış olayım, ben iptalleri yazdırınca sadece 3 satır yazıyor oysa ki 10 yazması lazım değilmi, bütonla basınca bu farkı göreceksiniz.

Ben soruyu yanlış anlamadım .Ben yazmamışsınız diyorsam yazmamışsınızdır.İşte örnek aşağıda kırmızı Satırdaki mavi kelime.

Private Sub CommandButton97_Click()
If MsgBox("YAZDIRMAK İSTİYOR MUSUN?", vbYesNo, "MEMUR MEY") = vbNo Then Exit Sub


Sheets("İPTAL").PageSetup.PrintArea = "A1:J" & [B][COLOR="Red"]Sheets("[SIZE="5"][COLOR="Blue"]ARANAN[/COLOR][/SIZE]").Cells(65536, "B").End(xlUp).Row[/COLOR][/B]
Sheets("İPTAL").PageSetup.Zoom = 85
Sheets("İPTAL").PageSetup.Orientation = xlLandscape 'Dikey yazdırmak=.Orientation = xlPortrait
Me.Hide
Application.Visible = True
Sheets("İPTAL").PrintPreview
Application.Visible = False
Me.Show
Sheets("İPTAL").PageSetup.PrintArea = ""
End Sub

 

[harziyan]

Aslında Evren Bey sorununuzu çözmüş, ilgili satırların aşağıdaki şekilde değişmeleri gerekiyor, deneyin, görün. Kolay Gelsin...

Sheets("YAKALANAN").PageSetup.PrintArea = "A1:J" & Sheets("YAKALANAN").Cells(65536, "B").End(xlUp).Row

Sheets("İPTAL").PageSetup.PrintArea = "A1:J" & Sheets("İPTAL").Cells(65536, "B").End(xlUp).Row

Sheets("H.İ.Y.").PageSetup.PrintArea = "A1:J" & Sheets("H.İ.Y.").Cells(65536, "B").End(xlUp).Row

 

[harziyan]

Evren Hocam ben dosyayı incelerken siz gerekli olan yapmışınız araya girdik...

 

[xmen_]

evren bey çok kullanışlı bir dosya yapmışsınız elınıze sağlık.

 

[Orion1]

evren bey çok kullanışlı bir dosya yapmışsınız elınıze sağlık.

Ben yapmadım.Sayın tarzanhaci yapmış.

 

[xmen_]

evren bey;

yapmış oldugunuz dosya çok güzel.

 

[Hacı Bayram ÖZKAN]

Sayın Evren hocam; özür dilerim, kusura bakmayın, ben ikinci kısımlarındaki sayfa ismini değiştirmeyi unutmuşum, sadece birincisini yazmışım. Tamam gördüm, "insan bazen bakar ama görmez" siz üstatsınız kızmayın. Teşekkürler