Skip to main content

AccessTr.neT


sayfa yazdırma hatası

sayfa yazdırma hatası

Çözüldü #1
arkadaşlar userformda ilgili sayfada belli bir yeri yazdırmak için aşağıdaki kodları yazdığımda hata alıyorum sebebi ne olabilir

Private Sub CommandButton2_Click()
Cevap = MsgBox(" Maaş Dökümü Yazdırılsın mı?", vbYesNo)
If Cevap = 6 Then
ActiveSheet.PageSetup.PrintArea = "Sayfa3!$C$10:$F$31"
ActiveSheet.PrintOut Copies:=2
End If
End Sub
Cevapla
Çözüldü #2
merhaba,

kodlarınızı aşağıdaki gibi düzenlemek ister misiniz.bu şekilde sorununuz çözümlenecektir kanısındayım.

Private Sub CommandButton2_Click()
Cevap = MsgBox("Maaş dökümü yazdırılsın mı?", vbYesNo)
If Cevap = 6 Then
Sheets("Sayfa3").Select
Range("C10:F31").Select
ActiveSheet.PageSetup.PrintArea = "$C$10:$F$31"
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
ActiveSheet.PageSetup.PrintArea = ""
Else

End If
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
Cevapla
Çözüldü #3
çok tşkler sorun çözüldü
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task