otomatik yazdırma

[ERRİC]

merhaba ekteki dosyamda Yazdır sayfasında makrom vardı ,
daha çalışam kitabını açar açmaz a1 seçili geliyordu ve oraya tc rakamanı girip
hiç bir tuşa basmadan çıktı alıp A1 İ Temizliyordu;
AMA ŞU AN ÇALIŞIMIYOR
ve aryıca bunu barkod ile tc kimlik kartlarını okuttuğumda da a1e getiriyor fakat otomatik yazdırmıyor kodu nasıl düzeltebiliriz. acaba;

1-ister elle ister barkodlar a1 e veri girildğinde enter dahi basmadan direk çıktı alınmalı
------------------------------------------------------------------------------------------------
2-eğer münkünse çok mühim değil; ÜYE SAYFASI j,k,l,m.... sütunlarına ise hangi tarih ve saatde çıktı alındığı kaydedebilir mi; acaba

SADECE 1 NOLU SORU BİLE yeterli saygılar

teşekkürler iyi haftalar;

Sub Makro1()
'
' Makro1 Makro
'
'
Range("A1").Select
ActiveCell.FormulaR1C1 = "11122266633"
Sheets("kart").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Yazdır").Select
Range("A1").Select
Selection.ClearContents
End Sub

 

[muhasebeciyiz]

yukardaki dosyanızda yazdır sayfanızdaki A1 hücresine rakam yazıpkart al butonuna basıldığında yazıcıdan zaten çıktı almaktadır.

 

[ERRİC]

hocam bu 2 sayfaya baktıysanız, delege kartı basıyoruz 400 tane insan arka arkaya GELİYOR SERİ BİR ŞEKİLDE ÇIKTI ALIP VERMEM LAZIM KİMLİK LERİ kontrol edip;