Yazıcı çıktı numarası

[mustafa038]

merhabalar.
excelde bi sayfadan mesala 300 çıktı alacağım.
hücrenin birine 1/300 2/300 3/300 .. 300/300 gibi fonksiyon ekleyebilirmiyim.
teşekkürler.

 

[sametozyavuz]

Sub Makro1()
adet = InputBox("Yazdırma adedini girin", "yazdırma")
ActiveWindow.SelectedSheets.PrintOut Copies:=adet
Range("a1").Value = Range("a1").Value + adet
MsgBox (adet & " adet yazdırma işlemi yapıldı.")
End Sub

bu kod ile a1 e bu zamana kadarki yazdırma adetlerinizi toplatabilirsiniz.

=A1&" / "&B1

b1 e de yazdırmak istediğiniz adedi yazarsanız
istediğiniz bir yerde bu formülle birleştiribilirsiniz.

 

[mustafa038]

hocam teşekkürler ama ben istediğimi anlatamadım sanırım.
ben barkod olarak yazdıracağım.
örneğin bir üründen 50 tane gönderceğim 50 adet yazdıracağım ve yazdırdıklarımda sıra numarası ile yapıştırılacak.
aşağıya örnek resim ekliyorum.

 

[sametozyavuz]

altın üye değilim dosyayı farklı bir dosya paylaşımından yükler misiniz?

 

[mustafa038]

http://dosya.co/j6o39cwz18rx/DENEME.xlsx.html

 

[sametozyavuz]

http://dosya.co/qj76qbu0e5ws/DENEME_(1).xlsm.html