Öncelikle,
Alıntı:...ofis 2010 kullanıyorum sizin yazdıklarınızın hiç birini bulamıyorum. Acccesc ve regedit resimlerini ekledim. Bakabilirmisiniz...
ifadenize yönelik olarak;
konunuzun 4.mesajında yazılan açıklamalardaki hususlara ulaşmanız için,
1) 8.mesajınızda eklediğiniz ACCESS-1.jpg adlı resimden anlatımda bulunmak gerekirse,ilgili resmin DOSYA menüsünde sol alt kısımda yer alan SEÇENEKLER ifadesini seçtiğinizde,açıklamaları takip ederek bu ayarlama işlemine geçebilirsiniz.
2) 8.mesajınızda eklediğiniz REGEDIT-1.jpg adlı resimden anlatımda bulunmak gerekirse,resmin sol alt köşesinde yazılı klasör yoluna bakıldığında da görülecektir ki,7.mesajda yazılı açıklamaların anlatıldığı klasör yolundan farklı bir kısımda olduğunuz ve bunun resmini eklediğiniz anlaşılmaktadır.
HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Access\Settings\CommandBars
7.mesajda yazılı klasör yolu için her bir \ işareti ile ayrılmış tanımlar regedit sayfasında o klasör adlarını tek tek bulup o klasörlerin içerisinde olmanız kast edilmiştir.bu nedenle,lütfen,belirtilen yolu kullanarak tekrar istenen kısma ulaşmayı deneyiniz.
(bu açıklamalar,sadece ifadenize dair bilgilendirme amacı ile yapılmıştır.)
Alıntı:..Eklediğim parke2 programda yazdır butonuna tıkladığım zaman rapor baskı önizleme olarak açılıyor. açılan rapor sayfasında maus sağ tıkladığım zaman yazıcı seçenekleri açılıyor orada yazıcıyı seçip yazdır komutunu verdiğimiz zaman raporu yazdırıyor.Benim programımda başka bir sorun var herhalde ayarlardan olsaydı parke2 programın rapor sayfasında maus sağ tıklama çalışmazdı ve raporu yazdırmazdı…
ifadenize yönelik olarak;
parke2 adlı uygulama ile sizin kendi uygulamanızın ayarları birbirinden farklı olduğunu belirtmekte fayda var.
sizin uygulamadaki ayarlarda,pencere gizleme işlemini dahil ettiğiniz için konunuzun 4.mesajında yazılı seçenek işaretli değil.parke2 adlı uygulamada ise herhangi bir ayarlama yapılmaksızın bu bahsi geçen seçenek ve aynı başlık altındaki diğer seçeneklerin tümü de işaretli.ayrıca,harici menü dahil etme de yapılmış ve bu menü adı varsayılan penceresinde aktif tutulmuş.
Alıntı:…kendi fatura programıma formdan bulduğum bir kodu ekledim yazdır dediğim zaman baskı önizleme açılıyor.Yazıcı seçeneği ortada ve altında boş rapor görünüyor ve yazıcıdan çıktı alabiliyorum. Yazdır komutundan sonra yazıcı seçeneği kapanıyor. Dolu rapor görünüyor. Yazıcı seçeneği sağda yeya solda görünse kontrol amaçlı olarak alttaki rapor dolu olarak görünseydi çok iyi olurdu…
ifadenize yönelik olarak;
aslında rapor boş görünmüyor.sadece ön izleme kodu olarak raporun açılması sağlanmasının yanı sıra,ilgili formun YAZDIR butonun (Komut33 adlı buton) içeriğinde yer alan
Kod:
RunCommand acCmdPrintAlıntı:…Yazıcı seçeneği sağda yeya solda görünse kontrol amaçlı olarak alttaki rapor dolu olarak görünseydi çok iyi olurdu…
ifadenize yönelik olarak;
yazıcı seçme penceresi için böyle bir yer belirleme söz konusu olmamaktadır.
Son olarak,yazıcı seçimi konusunda bir tavsiye ya da bir başka ifade ile alternatif bir yöntem olması adına,şu şekilde de yapılabilir.
Eğer çıktı alacağınız printer (yazıcı) belirgin bir yazıcı cihazı ise,ille de bir seçim penceresi çıkartmak yerine,direkt o yazıcı cihazının isminin yazılı olacağı bir kodlama yapılabilir.
EK’teki örnek uygulamanın formu üzerindeki YAZDIR butonu içerisinde yer alan
Kod:
Application.Printer = Application.Printers("buraya_hangi_yazicidan_cikti_alinacaksa_adini_yaziniz")Bu işlem uygulandığında,yine rapor ön izleme olarak açılacak ve akabinde yazdırma işlemi gerçekleştirilecek.
Bu konuda küçük bir düzenleme ile şu yöntem de uygulanabilir:ilgili YAZDIR butonunun içeriğini
Kod:
'ATOZ:
'YAZDIRMA İÇİN MESAJ BİLDİRİMİ
If MsgBox("Faturayı YAZDIRMAK istiyor musunuz?", vbYesNo, "YAZDIRMA UYARISI") = vbYes Then
If Me.FaturaID = "" Or IsNull(Me.FaturaID) Then
'EĞER KAYIT BOŞSA,KAYIT SEÇİMİNİN YAPILMASI İÇİN
MsgBox ("Lütfen FATURA işlemi için kayıt seçiniz"), vbCritical, "KAYIT SEÇME UYARISI"
Exit Sub
Else
Dim hangi_yazici As Printer
Set hangi_yazici = Application.Printer
Application.Printer = Application.Printers("buraya_hangi_yazicidan_cikti_alinacaksa_adini_yaziniz ")
Set Application.Printer = hangi_yazici
DoCmd.OpenReport "FaturaDokum", acViewNormal
DoCmd.Close acReport, "FaturaDokum", acSaveNo
End If
Else
Me.Undo
MsgBox ("Yazdırma işlemi iptal edilmiştir"), vbCritical, "YAZDIRMA İPTAL BİLGİLENDİRMESİ"
Exit Sub
End IfBilginize…iyi çalışmalar,saygılar.
