Seçili Metni yazdırma

[ANTALYA 01]

Merhaba ekteki çalışmada
VERİ-YÜZDE-LİSTE Sayfaları mevcut
Ben LİSTE Sayfasında Bir pencere gelmesini ve pencereden A Sütundan herhangi bir müşteriyi seçtiğimde Sayfa önizlemeye gelmesini ve sadece seçtiğim müşterinin yazıcıdan çıkmasını sağlayan bir makro istiyorum.

Örnek İSTEK Sayfasındaki gibidir.İstenilen şekilde değişiklik yapılabilir

 

[Seyit Tiken]

InputBox'ın textine yazılacak aralık girip okeyleyin. Örneğin, A3:N3 gibi.

Sub Düğme1_Tıklat()
On Error Resume Next
s = Application.InputBox("Yazılacak Aralık Giriniz", Date _
& " - " & Application.UserName)
Range(s).PrintOut
End Sub

 

[ANTALYA 01]

D

Tşk ederim tam istedğim gibi fakat 2.Satırdaki Cari ünvanı ve Ürün isimlerinide seçim yapılan aralıktaki veriye göre başlıklı çıkarması mümkünmü

Örnek
a4:n4 Seçtik butona bastık yazıcıdan çıktı

XXXX Otel -ytl - ytl 8,80 ytl 10 ytl -ytl gibi

şöyle olabilir mi yazıcıdan çıkarken A2 Satırındaki daki veriler sabit

Cari Hesap Ünvanı A ürünü B ürünü C Ürünü D ürünü
XXX Otel -ytl 8,80 ytl 10 ytl -ytl

Gibi

 

[Seyit Tiken]

Sayfa Yapısı > Üste Yinelenecek Satırlar > Satır Adresi ... şeklinde yapıp deneyin.