Skip to main content

AccessTr.neT


yazıcıdan çıktı alma

yazıcıdan çıktı alma

Çözüldü #1
merhaba arkadaşlar benim sorunum listbox daki yazıları yazıcıdan çıktı olarak almak istiyorum yalnız sayfa boş çıkıyo şu formülü kullandım

Private Sub CommandButton2_Click()
Cevap = MsgBox(" Maaş Dökümü Yazdırılsın mı?", vbYesNo)
If Cevap = 6 Then
Worksheets("Sayfa3").PrintOut Copies:=1
Else
End If
End Sub

sayfa3 deki c10 ile f28 aralığını yazdırmam gerekiyo yardımlarınızı bekliyorum
Cevapla
Çözüldü #2
merhaba,

örneğinizi eklemek ister misiniz.
hazır örnek üzerinde ilgilenmek zaman kazandırıcı olabilir.

iyi çalışmalar.
saygılar.
Herkes,kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
Çözüldü #3
merhaba,

ek'te örnek bir çalışma hazırladım.baskı sonucu olarak bir sorun çıkmamaktadır.
aslında,en iyi sonuç örneğinizin olduğu uygulama üzerinde incelemektir fakat geçici olarak bir örnek olması için bunu hazırladım.inceleyebilirsiniz.

iyi çalışmalar.
saygılar.
.rar ListBoxPRiNTalma.rar (Dosya Boyutu: 9,65 KB | İndirme Sayısı: 24)
Herkes,kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
Çözüldü #4
merhaba,

bir diğer ek bilgi olarak da isterseniz aşağıdaki gibi bir kısa kod ile de işlemi uygulayabilirsiniz.


Sub sayfayaz()
Sheets("Sayfa3").PageSetup.PrintArea = "C10:F28"
Sheets("Sayfa3").PrintOut Copies:=1
End Sub


iyi çalışmalar.
saygılar.
Herkes,kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Son Düzenleme: 06/02/2014, 13:09, Düzenleyen: atoz112.
Cevapla
Çözüldü #5
. . .

Visual Basic Code
Private Sub CommandButton2_Click()
    Cevap = MsgBox(" Maaş Dökümü Yazdırılsın mı?", vbYesNo)
    If Cevap = vbNo Then Exit Sub
    Sheets("Sayfa3").Range("C10:F28").PrintOut
End Sub


. . .

Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task