Yazdırma Alanı

[dilteks]

Arkadaşlar merhaba
Ekte hazırlamış olduğum tabloda yazdırma alanını belirlemek istiyorum bana yardımcı olurmusunuz teşekür ederim.

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodu, bir modul sayfasına kopyalayıp çalıştırınız. İsterseniz bir butona atayınız.

Sub AralikAyarla()
Set sh = Sheets("Sayfa1")
    bas_son = sh.Cells(5, 3).End(xlDown).Row + 1
    bit_son = sh.Cells(65536, 3).End(xlUp).Row - 3
    sh.Range("A" & bas_son & ":A" & bit_son).EntireRow.Hidden = True
          ActiveSheet.PrintOut
    sh.Range("A" & bas_son & ":A" & bit_son).EntireRow.Hidden = False
Set sh = Nothing
End Sub

 

[dilteks]

Sayın fpc ilgin için teşekkür ederim.
Ama ben yapamadım ekteki tabloma uygulama yaparsanız sevinirim.
teşekkür ederim.

 

[Ferhat Pazarçevirdi]

Ekteki dosyayı inceleyiniz.

 

[dilteks]

Çok Teşekkür ederim fpc, eline sağlık

 

[kemalkazan]

lütfen yardım ediniz.

Değerli arkadaşım, benimde aynı sorunum var.lütfen yardım edermisin
teşekkürlerimle

 

[Ferhat Pazarçevirdi]

Değerli arkadaşım, benimde aynı sorunum var.lütfen yardım edermisin
teşekkürlerimle

Peki, sizdeki sorun nedir? Anlatır mısınız?

 

[kemalkazan]

yazdırma sorunu

Peki, sizdeki sorun nedir? Anlatır mısınız?

değerli arkadaşım,
gönderdiğim "yeni microsoft excel çalışma sayfası" adlı dosyadaki çalışmada sıfır yada boş olan satırları yazmasın ancak en alttaki KDV ve genel toplam kısmını dolu olan satırın altına ekleyip yazdırsın istiyorum ama maalesef beceremedim.
Yardımını bekliyorum.
teşekkür ve saygılarımla.

 

[Seyit Tiken]

Aşağıdaki kodu deneyiniz.

Sub Düğme1_Tıklat()
[a9:a374].SpecialCells(4).Rows.Hidden = [a9:a374].SpecialCells(4).Rows.Hidden = 0
End Sub

 

[kemalkazan]

yazdırma alanı

Aşağıdaki kodu deneyiniz.

Sub Düğme1_Tıklat()
[a9:a374].SpecialCells(4).Rows.Hidden = [a9:a374].SpecialCells(4).Rows.Hidden = 0
End Sub

Değerli kardeşim,
yardımın için teşekkür ederim ancak benim istediğim tam bu değil,sayfa aynen kalsın ancak yazdırma esnasında sadece dolu olan satırları yazdırsın. anlatabildim ni acaba? sizden ricam bir de gönderdiğim dosya üzerinde gösterirseniz sevinirim.
sayfılarımla

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Sub Düğme1_Tıklat()
[a9:a374].SpecialCells(4).Rows.Hidden = 1
[a9:a374].PrintOut
[a9:a374].SpecialCells(4).Rows.Hidden = 0
End Sub

 

[kemalkazan]

yazdırma alanı

Bu şekilde deneyiniz.

Sub Düğme1_Tıklat()
[a9:a374].SpecialCells(4).Rows.Hidden = 1
[a9:a374].PrintOut
[a9:a374].SpecialCells(4).Rows.Hidden = 0
End Sub

Değerli kardeşim,
emeğin ve zaman ayırdığın için çok teşekkür ederim.ancak,sadece a9 vea10 hücrelerini yazdırdı. ya da ben beceremedim lütfen bana yardım edermisiniz.
saygılarımla

 

[Ferhat Pazarçevirdi]

Ekteki dosyada; "Yazdır" butonuna basınız.

Not : Aşağıdaki kodlar, sayfa üzerindeki commandbutona bağlanmıştır.

Option Explicit
Sub Yazdir()
    Dim i As Integer
    Dim x As Integer
    Dim arrS()
 
[COLOR=darkgreen]   'Ekranda yapılan işlemlerin görünmemesi[/COLOR]
[COLOR=darkgreen]   've kodların daha hızlı çalışması için[/COLOR]
[COLOR=darkgreen]   'görüntüleme devre dışı bırakılıyor[/COLOR]
    Application.ScreenUpdating = False
 
[COLOR=darkgreen]   '9 ile 374 arasındaki satırlar kontrol ediliyor[/COLOR]
[COLOR=darkgreen]   'Eğer A ile K sütunu arasındaki değerlerin hepsi boşsa[/COLOR]
[COLOR=darkgreen]   'satır hafızaya alınıyor ve gizleniyor[/COLOR]
    For i = 9 To 374
        If Application.WorksheetFunction.CountA(Range(Cells(i, 1), Cells(i, 12))) = 0 Then
            x = x + 1
            ReDim Preserve arrS(1 To x)
            arrS(x) = i
            Rows(i).Hidden = True
        End If
    Next i
 
[COLOR=darkgreen]   'Sayfa gizlenmiş satırları ile yazdırılıyor[/COLOR]
    ActiveSheet.PrintOut
 
[COLOR=darkgreen]   'Daha önceki işlemde gizlenen satırlar çağrılarak[/COLOR]
[COLOR=darkgreen]   'tekrar görünüt kılınıyor[/COLOR]
    For i = 1 To UBound(arrS)
         Rows(arrS(i)).Hidden = False
    Next i
 
[COLOR=darkgreen]    'Ekranda görüntüleme yeniden etkin hale getiriliyor[/COLOR]
    Application.ScreenUpdating = True
 
End Sub

 

[Seyit Tiken]

Haklısınız, kodta ufak bir hata yapılmıştır. Doğrusu :

Sub Düğme1_Tıklat()
[a9:a374].SpecialCells(4).Rows.Hidden = 1
Sayfa1.PrintOut
[a9:a374].SpecialCells(4).Rows.Hidden = 0
End Sub

 

[kemalkazan]

2 ve 3.sayfa yazdırma

değerli kardeşim,
Emeğin ve zaman ayırdığın için teşekkürler,bir sorum daha olacak, şöyle ki;
acaba bu yazdırma işlemini 2,3 veya daha fazla sayıda sayfaya nasıl uyarlayabiliriz
teşekkür ve saygılarımla

 

[Seyit Tiken]

Bahsettiğiniz kopya sayısı ise;

Sayfa1.PrintOut Copies:=3

 

[kemalkazan]

yazdırma alanı

teşekkürlerimle

 

[Ferhat Pazarçevirdi]

kemalkazan bey,

Makroların çalışması için, sayfanızın ve verilerinizi belirli bir standart yapısı olmak zorunda ... Burada gördüğünüz herhangi bir makroyu alıp direkt olarak kendinize adapte edemezsiniz.

Keza, ilk gönderdiğiniz dosya ile 17 nolu mesajdaki dosya arasında da yapısal olarak farklılıklar var.. Size gönderdiğimiz kodlar bu yüzden çalışmaz.

Lütfen, kullanacağınız dosyanın en son şeklini buraya koyun. Bu noktadan sonra, satır ilavesi, sütun ilavesi gibi kavramları da unutun.

 

[kemalkazan]

kemalkazan bey,

Makroların çalışması için, sayfanızın ve verilerinizi belirli bir standart yapısı olmak zorunda ... Burada gördüğünüz herhangi bir makroyu alıp direkt olarak kendinize adapte edemezsiniz.

Keza, ilk gönderdiğiniz dosya ile 17 nolu mesajdaki dosya arasında da yapısal olarak farklılıklar var.. Size gönderdiğimiz kodlar bu yüzden çalışmaz.

Lütfen, kullanacağınız dosyanın en son şeklini buraya koyun. Bu noktadan sonra, satır ilavesi, sütun ilavesi gibi kavramları da unutun.

Ferhat bey,
öncelikle ben foruma yeni üyeyim ve bildiğim kadarı ile forumdaki makro yada dosyaları kullanabiliyoruz ancak eğer böyle değil ise ben gerçekten özür dilerim. Bu konuya da yeni başladım henüz henüz konu hakkında birşeyleri öğreniyorum.Almış olduğum makro ilk başta bir anlam ifade etmiyordu ancak şimdi ne anlama geldiğini az çok anlıyorum.
sizi tenzi ederim ki;direkt alıp uygulama gibi bir düşüncem olmadı sadece bendeki dosyaya uyarlamak istedim hepsi bu.eğer bu hata ise tekrar tekrar özür dilerim.
dosya ektedir.eğer yardım ederseniz memnun olurum.
teşekkür ve saygılarımla

 

[Ferhat Pazarçevirdi]

Kemal bey,

Siz beni yanlış anlamışsınız Tabi ki buradaki her türlü kodu, formulü, dosyayı veya projeyi istediğiniz gibi kullanabilirsiniz. Ben, bunu; kısıtlayacak anlamda bir söz sarfetmediğimi sanıyordum.

Sonuç itibari ile; burası bir paylaşım platformu ve her şey şeffaf, herşey herkese açık ...

Benim demek istediğim, buradan aldığınız bir kodu olduğu gibi kendi projenize ilave etmeye çalıştığınızda (-ki buna teknik olarak hiçbir mani yok) hatalar ile karşılaşırsınız ve kodlar çok büyük bir ihtimalle çalışmaz. Sizin projenize özel kodların geliştirilmesi gerekli ...

Aşinalık ve öğrenme taklitle başlar ... Elbet, başlarda birşeyleri taklit edeceksiniz. Ama sonrasında yavaş yavaş, kendi stilinize geliştireceksiniz. Onun için taklitten veya direkt uygulamaları denemekten kaçınmayınız ...

Sorununuzla ilgileneceğim... Sadece, yanlış bir anlaşılmayı düzeltmek için bunları yazdım...