Merhaba arkadaşlar eklediğim kodlarla Forum sayfasında baskı önzileme yapıp yazıcıdan çıktı alıyorum. Kullandığım yazıcı Epson LX_350 yazıcı yeni olmasına rağmen bazen tek sayfa çıktı çıkarıyor. Bazen durmadan yazmaya devam ediyor. Bazen de bir sayfa yazdırıyor. Ondan sonra iki sayfa boş kağıt çıkarıyor tekrar yazdırmaya devam ediyor.
Tek sayfa çıktı alabilecek bir kodu aşağıdaki kodlara eklerseniz sevinirim. veya yazdır butonuna tıkladığım zaman resimdeki gibi yazdır da Sayfa seçili İlk 1 son 1 seçili duruma gelsin.
Kod:
Private Sub Komut33_Click()
If Me.FaturaID = "" Or IsNull(Me.FaturaID) Then
MsgBox ("Lütfen FATURA işlemi için kayıt seçiniz"), vbCritical, "KAYIT SEÇME UYARISI"
Me.Undo
Exit Sub
End If
If IsNull(Forms![FaturaGiris]![FaturaDetay].Form![Toplam]) Or Forms![FaturaGiris]![FaturaDetay].Form![Toplam] = "" Or IsNull(Forms![FaturaGiris]![FaturaDetay].Form![Yekun]) Or Forms![FaturaGiris]![FaturaDetay].Form![Yekun] = "" Then
MsgBox ("Alt formdaki" & vbCr & vbCr & "Toplam" & vbCr & "Yekun" & vbCr & vbCr & "denetimleri BOŞ olduğu için" & vbCr & "KAYIT İŞLEMİ İPTAL EDİLMİŞTİR."), vbCritical, "KAYDETME İPTAL BİLGİLENDİRMESİ"
Cancel = True
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdUndo
DoCmd.SetWarnings True
Exit Sub
Else
DoCmd.OpenReport "FaturaDokum", acPreview
End If
End Sub
![[Resim: 14555520481.png]](https://resim.accesstr.net/uploads/14555520481.png)
sayın kenan827,
bahsettiğiniz talebinize yönelik olarak;
Kod:
DoCmd.PrintOut acPages, 1, 1
kod satırını kullanabilirsiniz.
AÇIKLAMASI
tek sayfayı yazdır anlamındadır.
eklediğiniz kodların içerisindeki
Kod:
DoCmd.OpenReport "FaturaDokum", acPreview
kod satırının bir altına dahil edebilirsiniz.
bilginize...iyi çalışmalar,saygılar.
Çok teşekkürler hocam elleriniz sağlık. Hocam kodu ekledim deme imkanım olmadı. Olup olmadığını yarın işyerinde deneyerek size dönüş yapacağım. Saygılarımla iyi akşamlar.
sayın kenan827,
DoCmd.PrintOut Yöntemi hakkında daha ayrıntılı bilgi edinmek isterseniz;
fikir vermesi ve içeriği itibarı ile bilgi sağlaması adına aşağıdaki bağlantılarda yer alan konuları inceleyiniz.
DoCmd.PrintOut Method
Yazdırma seçeneklerini ayarlama
faydalı olması temennisi ile.
son olarak;bir de,naçizane tavsiye olması adına,
eğer raporu tasarım olarak açıp,üst menüden de SAYFA YAPISI menüsünü (simgesini) seçtiğinizde,ekrana gelecek olan SAYFA YAPISI başlıklı pencerenin YAZDIRMA SEÇENEKLERİ sekmesindeki KENAR BOŞLUKLARI başlığı altındaki ÜST,ALT,SOL,SAĞ satırlarındaki değerleri 4-5 mm olarak işaretlemenizde bir bakıma katkı sağlayabilir,eğer ki bu kodu kullanmadığınızda.
bilginize...iyi çalışmalar,saygılar.
Hocam Eklediğiniz Kodu Kullanmak istiyorum. Şöyle bir sorun çıkıyor. Baskı önzileme açılır açılmaz hemen faturayı yazdırıyor baskı önizlemede faturayı kontrol etikten sonra yazdır komutunu biz verseydik çok iyi olurdu.
sayın kenan827,
Alıntı:...baskı önizlemede faturayı kontrol etikten sonra yazdır komutunu biz verseydik çok iyi olurdu...
ifadenize yönelik olarak;
şu öneride bulunmanın faydalı olacağı kanısındayım.
ön izleme sonrasında yazılan yazdırma komutunu,bir tuş kullanımına atamak sureti ile kullanabilirsiniz.
böylece,ön izleme akabinde kontrollerinizi de bitirip baskıya hazır duruma geldikten sonra bu tuşa basmak neticesinde yazdırma işlemini gerçekleştirebilirsiniz.
site arama sayfasında,"sendkey" ya da "keycode" benzeri ifadeleri yazmak sureti ile edineceğiniz çeşitli içeriklerdeki konularda yer alan bilgileri ve örnekleri inceleyiniz.aşağıda bunlardan iki tanesi mevcut.
Fonksiyon Tuşları (F1)
Alt+f tuşları ile form açmak
son olarak,belki bunlara bile gerek kalmaksızın,raporu ön izleme açıp kontrolleri yaptıktan sonra,rapor üzerinde SAĞ TUŞ ile menüden YAZDIR ifadesini seçerek bu yazdırmayı direkt de yapabilirsiniz.
bilginize...iyi çalışmalar,saygılar.