İki sayfa bir butonla yazdır.

[mcetinkaya65]

Cüzdan sahifesindeki yazdır butonuna tıklayınca,cüzdan sayfasının A1-j55 ,Hatalı iade sayfasının A1-Q58 aralığını,(Renkli alanları) 2 şer adet yazdırması mümkün mü?
Saygılarımla..

 

[Orion1]

Dosyanız ektedir.

Sub yazdir59()
Dim i As Byte
For i = 1 To 2
    Sheets("cüzdan").Range("A1:J55").PrintOut
Next i
For i = 1 To 2
    Sheets("Hatalı iade").Range("A1:Q58").PrintOut
Next
MsgBox "Yazdırma tamamlanmıştır." & vbLf & _
    "evrengizlen@hotmail.com", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[mcetinkaya65]

İlginize teşekkür ederim.
Saygılarımla..