Koşullu Yazdırma

[ali_akdemir]

merhaba,

Excelde bir listem var. örneğin aşağıdaki gibi bir liste. yazdırırken istiyorum ki önce lokasyondaki ilk türü bir sayfaya yazsın, sonra diğerini ikinci sayfaya, diğerini üçüncü sayfaya böyle böyle devam etsin. bir buçuk sayfa mı tuttu mesela bir nitelik, sonra yine diğerini yeni sayfadan başlatsın. böyle bir yazdırma şekli mümkün müdür?

yardımlarınızı rica ederim.

Lokasyon - Code
A - 123
A - 12
B - 1234
B - 12364
B - 635
C - 765
C - 7564
C - 765347
C - 12341
D - 9786

 

[PLİNT]

Merhaba
Ek dosyadaki gibi filtreleyerek yazdırabilirsiniz
https://dosyaup.com/d/HFRHKTXP

Sub yazdır()
For s = 2 To Cells(Rows.Count, "A").End(3).Row
If Trim(Cells(s, 1)) <> "" And _
WorksheetFunction.CountIf(Range("A1:A" & s), Cells(s, "A")) = 1 Then
Range("A1").AutoFilter
ActiveSheet.Range("$A$1:$B$" & Cells(Rows.Count, "A").End(3).Row).AutoFilter Field:=1, Criteria1:=Cells(s, "A")
ActiveSheet.PrintOut
Range("A1").AutoFilter
End If
Next
End Sub

 

[ali_akdemir]

efenim merhaba,
öncelikle teşekkürler.
yaptığınız işlemi bilale anlatır gibi anlatmanız mümkün müdür?
bir de tıkladığımız anda yazdırmaya başlıyor ne yazıcı secebiliyoruz ne bir önizleme yapabiliyoruz, eğer bu seçenekler de olsa süper olur.

 

[PLİNT]

Merhaba
Aslında seri yazdırmayacaksanız,"A" sütununa filtre ekleyip; seçim yaparak yazdırabilirsiniz kodlara gerek kalmaz.
Ek dosyada önizleme penceresi açılacak, (buradan yazdırmanız gerek) o sayfayı (atlamak) yazdırmak istemezseniz "önizlemeyi kapat" ile sonraki lokasyona geçecektir

https://www.dosyaupload.com/fkbK

Aşağıdaki dosyadada önizleme açılır önizleme kapatıdığında yazdırılmak istenip istenmeği sorulur
https://www.dosyaupload.com/fkbP

 

[ali_akdemir]

Merhaba
Aslında seri yazdırmayacaksanız,"A" sütununa filtre ekleyip; seçim yaparak yazdırabilirsiniz kodlara gerek kalmaz.
Ek dosyada önizleme penceresi açılacak, (buradan yazdırmanız gerek) o sayfayı (atlamak) yazdırmak istemezseniz "önizlemeyi kapat" ile sonraki lokasyona geçecektir

https://www.dosyaupload.com/fkbK

Aşağıdaki dosyadada önizleme açılır önizleme kapatıdığında yazdırılmak istenip istenmeği sorulur
https://www.dosyaupload.com/fkbP

Teşekkürler, gayet kullanışlı bir taslak oldu. Herhangi bir veriyi ilgili taslağa taşıdığımızda tam da istediğim gibi yazdırmayı sağlayabiliyorum.

 

[PLİNT]

Teşekkürler, gayet kullanışlı bir taslak oldu. Herhangi bir veriyi ilgili taslağa taşıdığımızda tam da istediğim gibi yazdırmayı sağlayabiliyorum.

Rica ederim, güle güle kulanın.
Taslak olarak kullanacaksanız, ek dosyadaki gibi; sayfadaki butonu kaldırıp (kısayol) "Alt+ç" ile çalışan şekli daha iyi olabilir
https://www.dosyaupload.com/b84g