Toplu Olarak Kategori Bazında Tek Seferde Yazıcından Çıktı Almak

[bilal5412]

Merhaba arkadaşlar,

aşağıdaki bağlantıda bir çalışmam mevcut. bu çalışmada da örnek olarak gösterdiğim gibi, birden çok kategorisi olan ve her bir kategori kümesinde birden çok kod olan bir liste mevcut. bu listeyi kategori bazında çıktı almak istiyorum. Bunu tek seferde yazıcıya nasıl yollabilirim. Ekteki örnektir.

https://drive.google.com/file/d/0B3wJKQcxKCV4VVdPdW5zR0RvYXc/view?usp=sharing

 

[turist]

LİNK'teki dosyayı inceleyiniz.
Sayfa2 isimli sayfada TOPLU YAZ butonu işlem yapacaktır.
Bunun için önce; sayfanın VBA sayfasındaki kodunu inceleyiniz.
Bunun için, Sayfa 2 sekmesindeyen, Sağ Klikle "Kod Görüntüle" yi tıklarsanız Makro Kodlarına ulaşırsınız.
Kodlarda belirtilene uygun şekilde Yeşil satırlarda (başında ' Tırnak işareti olan satırlarda) Baskı Önizleme ve / veya Direkt Baskı işlemini istediğiniz gibi belirleyebilirsiniz.
İyi çalışmalar....

 

[bilal5412]

LİNK'teki dosyayı inceleyiniz.
Sayfa2 isimli sayfada TOPLU YAZ butonu işlem yapacaktır.
Bunun için önce; sayfanın VBA sayfasındaki kodunu inceleyiniz.
Bunun için, Sayfa 2 sekmesindeyen, Sağ Klikle "Kod Görüntüle" yi tıklarsanız Makro Kodlarına ulaşırsınız.
Kodlarda belirtilene uygun şekilde Yeşil satırlarda (başında ' Tırnak işareti olan satırlarda) Baskı Önizleme ve / veya Direkt Baskı işlemini istediğiniz gibi belirleyebilirsiniz.
İyi çalışmalar....

Merhaba,

başka bir kaynaktan link verebilir misiniz. Zararlı site uyarısı alıyorum. Siteye giriş yapamıyorum.

 

[Ömer BARAN]

Merhaba.

Sayın turist şu an forumda değil.
Cevabımın altındaki İMZA BLOKUnda iki adet dosya paylaşım sitesinin adresi var.
Onlardan birini deneyebilirsiniz.
.

 

[turist]

Merhaba,

başka bir kaynaktan link verebilir misiniz. Zararlı site uyarısı alıyorum. Siteye giriş yapamıyorum.

L İ N K

 

[bilal5412]

L İ N K

Tekrar Merhaba,

Çalıştıramadım. Yada tam olarak anlamadım.

 

[turist]

Kodlarda yer alan

[COLOR="SeaGreen"]'ActiveWindow.ActiveSheet.PrintOut  ' Baskı Yapar  satırın başındaki Tırnak işaretini kaldırırsanız Yazıcıdan bastırır[/COLOR]

Kısmının başındaki

[B][COLOR="Red"]'[/COLOR][/B]

(Tırnak) işaretini silin
Satırı ,

[B][COLOR="Black"]ActiveWindow.ActiveSheet.PrintOut [/COLOR][/B][COLOR="SeaGreen"] ' Baskı Yapar  satırın başındaki Tırnak işaretini kaldırırsanız Yazıcıdan bastırır[/COLOR]

haline getirin ve Sayfanızdaki Butonu tıklayın.

 

[bilal5412]

Kodlarda yer alan

[COLOR="SeaGreen"]'ActiveWindow.ActiveSheet.PrintOut  ' Baskı Yapar  satırın başındaki Tırnak işaretini kaldırırsanız Yazıcıdan bastırır[/COLOR]

Kısmının başındaki

[B][COLOR="Red"]'[/COLOR][/B]

(Tırnak) işaretini silin
Satırı ,

[B][COLOR="Black"]ActiveWindow.ActiveSheet.PrintOut [/COLOR][/B][COLOR="SeaGreen"] ' Baskı Yapar  satırın başındaki Tırnak işaretini kaldırırsanız Yazıcıdan bastırır[/COLOR]

haline getirin ve Sayfanızdaki Butonu tıklayın.

dediğiniz gibi yaptım fakat yine çalıştıramadım. rica etsem kaldırılması gereken tırnakları siz kaldırabilir misiniz.

 

[bilal5412]

dediğiniz gibi yaptım fakat yine çalıştıramadım. rica etsem kaldırılması gereken tırnakları siz kaldırabilir misiniz.

tamam şimdi oldu teşekkürler

 

[bilal5412]

Kodlarda yer alan

[COLOR="SeaGreen"]'ActiveWindow.ActiveSheet.PrintOut  ' Baskı Yapar  satırın başındaki Tırnak işaretini kaldırırsanız Yazıcıdan bastırır[/COLOR]

Kısmının başındaki

[B][COLOR="Red"]'[/COLOR][/B]

(Tırnak) işaretini silin
Satırı ,

[B][COLOR="Black"]ActiveWindow.ActiveSheet.PrintOut [/COLOR][/B][COLOR="SeaGreen"] ' Baskı Yapar  satırın başındaki Tırnak işaretini kaldırırsanız Yazıcıdan bastırır[/COLOR]

haline getirin ve Sayfanızdaki Butonu tıklayın.

sağ üst köşeye tarihte ekleyebilir misiniz.

 

[turist]

Çıktının sağ üst köşesinde Bugünün Tarihi yazdırılıyor.Bakınız.