yazdırma ile ilgili

[polis-53]

Merhaba arkadaşlar aşağıdaki kod formdaki arkadaşlardan aldım bilgisayarımda birden fazla yazıcı olduğu için yazıcı seçme ve kaç adet yazdıracağımı belirlemek istiyorum yardım ederseniz sevineceğim.


Sub Tüm_Sayfaları_Yaz()
For Y = 1 To 7
Sheets(Y).PrintOut
Next
End Sub

 

[asi_kral]

Merhaba arkadaşlar aşağıdaki kod formdaki arkadaşlardan aldım bilgisayarımda birden fazla yazıcı olduğu için yazıcı seçme ve kaç adet yazdıracağımı belirlemek istiyorum yardım ederseniz sevineceğim.


Sub Tüm_Sayfaları_Yaz()
For Y = 1 To 7
Sheets(Y).PrintOut
Next
End Sub

Merhaba
Boş bir Module kopyalayın ve deneyin.

Option Explicit
Sub Sayfaları_Yazdır_1967()
'Konu       :   Sayfaları Belirlediğimiz Yazıcı'da _
Kopya Sayısı Belirleyerek Yazdırma
'Mail       :   m.batu.1967@gmail.com
'Coder By   :   asi_kral_1967
Dim asi As String, kral, a As Long
kral = InputBox("Kopya Sayısı", "Kopya Sayısı Giriniz")
If kral = "" Then kral = 1
asi = Application.Dialogs(xlDialogPrinterSetup).Show
If asi = False Then Exit Sub
For a = 1 To 7
Sheets(a).PrintOut copies:=kral
Next
MsgBox "İşelm Tamamlandı", vbInformation, "asi_kral_1967"
End Sub

 

[polis-53]

Çooooooooooook teşekkür ederim asi_kral_1967
Kal Sağlıcakla

 

[asi_kral]

Çooooooooooook teşekkür ederim asi_kral_1967
Kal Sağlıcakla

Kolay Gelsin.