yazıcı yardımı

[earthofdevil]

yazıcıya kac prınt gonderdım dıye bır programlama yapabılırmıyız

lutfen yardım

 

[xxcell]

Aşağıdaki kodu incelerseniz, muhtemelen işinize görebilir.

    Sub YAZDIR()
    If Sheets("AYARLAR").Cells(1, 1)  > 1 Then
    If MsgBox(" DAHA ÖNCE YAZDIRILMIŞ, TEKRAR YAZDIRMAK İSTEDİĞİNİZE EMİNMİSİNİZ ?", vbYesNo) = vbNo Then Exit Sub
    End If
    
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("AYARLAR").Cells(1, 1) = Sheets("AYARLAR").Cells(1, 1) + 1
   
    End Sub

 

[earthofdevil]

tesekkürler

tesekkürler

fakat ben bu kodu nereye yazacagimi bulamadim

 

[xxcell]

bu kode bir module yazmalısınız

ve print işlemlerinizi bu koda yönlendirmelisiniz.

akşama örnek dosya eklerim.

 

[xxcell]

Ekli dosyayı inceleyiniz.

 

[earthofdevil]

tesekkür

tesekkürler xcell

bu kadar mukemmel bı forum daha gormedım ben yaa
herke cok ılgılı kımse bosver demıyo

hpınıze tesekkür