Yazdır Makrosunda Kopya sayısını hücreden alsın

[ferhatgurbuz]

Sub yazdir()
If MsgBox("Yazdırmak İstediğinizden Emin misin.", vbYesNo) = vbNo Then
Exit Sub
End If
Range("Yazdırma_Alanı").PrintOut
End Sub

yukarıdaki kod a ilave olarak P11 hücresinde ki sayı kadar yazdırsın istiyorum. ilgilenen arkadaşlara teşekkür ederim. hayırlı çalışmalar

 

[Zeki Gürsoy]

Range("Yazdırma_Alanı").PrintOut copies:= [p11]

 

[abdi]

Sub yazdir()
If MsgBox("Yazdırmak İstediğinizden Emin misin.", vbYesNo) = vbNo Then
Exit Sub
End If
Range("Yazdırma_Alanı").PrintOut , Copies:=Cells(11, "p").Value
End Sub

pardon zeki bey cevabı yazmış bile

 

[ferhatgurbuz]

teşekkür ederim. Kolay gelsin