+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: yazıcıdan çıktı alma (/konu-yazicidan-cikti-alma.html)
yazıcıdan çıktı alma - devely - 05/02/2014
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
Cvp: yazıcıdan çıktı alma - atoz112 - 05/02/2014
merhaba,
örneğinizi eklemek ister misiniz.
hazır örnek üzerinde ilgilenmek zaman kazandırıcı olabilir.
iyi çalışmalar.
saygılar.
Cvp: yazıcıdan çıktı alma - atoz112 - 05/02/2014
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.
Cvp: yazıcıdan çıktı alma - atoz112 - 06/02/2014
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.
Cvp: yazıcıdan çıktı alma - huseyincoban - 08/02/2014
. . .
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
. . .