Yazdırılacak Sayfa sayısını belirlemek.

[sukruyilmaz1]

İyi günler Arkadaşlar.

Aşağıdaki kodlar ile yazıcı seçip yazdırabiliyorum. fakat kaç kopya yazdıracağımızı nasıl yaparız? bu konuda yardımlarınızı bekliyorum...

Saygılarımla.

Private Sub CommandButton1_Click()

Application.Dialogs(xlDialogPrinterSetup).Show

Dim iloop As Integer
For iloop = 1 To ListBox1.ListCount
If ListBox1.Selected(iloop - 1) = True Then
Sheets(ListBox1.list(iloop - 1, 0)).PrintOut
ListBox1.Selected(iloop - 1) = False
End If
Next
End Sub

 

[Huseyinkis]

İyi günler Arkadaşlar.

Aşağıdaki kodlar ile yazıcı seçip yazdırabiliyorum. fakat kaç kopya yazdıracağımızı nasıl yaparız? bu konuda yardımlarınızı bekliyorum...

Saygılarımla.

Private Sub CommandButton1_Click()

Application.Dialogs(xlDialogPrinterSetup).Show

Dim iloop As Integer
For iloop = 1 To ListBox1.ListCount
If ListBox1.Selected(iloop - 1) = True Then
Sheets(ListBox1.list(iloop - 1, 0)).PrintOut
ListBox1.Selected(iloop - 1) = False
End If
Next
End Sub

Ekli Formulu incelermisiniz.

Sheets(ListBox1.list(iloop - 1, 0)).PrintOut Copies:=1

 

[asi_kral]

İyi günler Arkadaşlar.

Aşağıdaki kodlar ile yazıcı seçip yazdırabiliyorum. fakat kaç kopya yazdıracağımızı nasıl yaparız? bu konuda yardımlarınızı bekliyorum...

Saygılarımla.

Private Sub CommandButton1_Click()

Application.Dialogs(xlDialogPrinterSetup).Show

Dim iloop As Integer
For iloop = 1 To ListBox1.ListCount
If ListBox1.Selected(iloop - 1) = True Then
Sheets(ListBox1.list(iloop - 1, 0)).PrintOut
ListBox1.Selected(iloop - 1) = False
End If
Next
End Sub

Merhaba

Private Sub CommandButton1_Click()

Application.Dialogs(xlDialogPrinterSetup).Show

Dim iloop As Integer
For iloop = 1 To ListBox1.ListCount
If ListBox1.Selected(iloop - 1) = True Then
Sheets(ListBox1.list(iloop - 1, 0)).PrintOut Copies:=1
ListBox1.Selected(iloop - 1) = False
End If
Next
End Sub

Şeklinde dener misiniz_?

 

[serqet]

Private Sub CommandButton1_Click()

Application.Dialogs(xlDialogPrinterSetup).Show

Dim iloop As Integer
For iloop = 1 To ListBox1.ListCount
If ListBox1.Selected(iloop - 1) = True Then
Sheets(ListBox1.list(iloop - 1, 0)).PrintOut Copies:= *
ListBox1.Selected(iloop - 1) = False
End If
Next
End Sub


şeklinde deneyin ?

 

[Murat OSMA]

Alternatif...

 

[sukruyilmaz1]

Sn murat bey, Sn Serqet, Sn Asi Kral, Sn Hüseyin bey. ilginiz için teşekkür ederim yardımlarınız için. dediğiniz gibi oldu. İyi günler