hücrede belirtilen sayı kadar Sayfa adeti yazdırma

[taseraydin]

Değerli Arkadaşlar

"N2" hücresinde belirtelen sayı kadar sayfa adeti bastırma için yazılabilecek

macro nasıl yapılabilir. Sayfa Yazdırma Düzeni ( Sayfa1(A1:A51) )

 

[Ayhan Ercan]

aşağıdaki kodu denermisiniz...

Dim x As Integer
Sheets("sayfa1").PageSetup.PrintArea = "$A$1:$A$51"
x = [N2].Value
ActiveWindow.SelectedSheets.PrintOut Copies:=x

 

[taseraydin]

TeŞekÜr

İlgİnİze Ve EmeĞİnİze Çok TeŞekÜr Ederİm
İŞİme Çok Yaradi

 

[Ayhan Ercan]

İlgİnİze Ve EmeĞİnİze Çok TeŞekÜr Ederİm
İŞİme Çok Yaradi

işinize yaradığına sevindim.
iyi çalışmalar...

 

[ahmetusta37]

konuyu yeniden gündeme getireceğim.Çünkü gerçekten işime yaradı.Ayhan Ercan arkadaşıma bende müteşekkirim.Fakat benim yaptığım biraz farklı

Ben daha seri barkod yazmak için excelde hazırladığım barkod etiketlerinden bilgisayarıma bağlı 2 yazıcıdan barkod yazıcısını da seçmesini ekledim.Kimbilir belki birinin işine yarar.

Tabi görüleceği üzere benim her satırımda 4 etiket var.Hiçbir yeri şifreli değil.Azcık Excel bilgisi olanlar isteğine göre düzenleyebilirler

 

[yeniaslan]

aşağıda vermiş olduğum dosyada yazı ile belirttiğim hücredeki sayı kadar yazıcıdan çıktı almak istiyorum yardımcı olursanız sevinirim. teşekkürler.

 

[Emir Hüseyin Çoban]

Merhaba, yazdır butonun kodlarına aşağıdaki kodları yapıştırın.
Kodlarınıza kırmızı ile belirttiğim satırları ilave ettim.

Private Sub CommandButton1_Click()
Range("a1:D1").PrintOut [COLOR="Red"]Copies:= _
Sheets("Sheet1").Range("a2")[/COLOR]
End Sub

 

[yeniaslan]

sayın HÜSEYİN ÇOBAN yardımlarınız için çok teşekkür ediyorum. allah sizden ve sizin gibilerden razı olsun.