Tek sayfa çıktı almak sorunu

1 2
15/02/2016, 19:02

kenan827

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




15/02/2016, 19:55

atoz112

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.
15/02/2016, 20:16

kenan827

Ç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.
15/02/2016, 20:39

atoz112

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.
15/02/2016, 22:41

kenan827

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.
15/02/2016, 23:31

atoz112

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.
1 2