Userformda sayfa yazdırma

[Mahir64]

Sayın Black Lord;
Size ne kadar teşekkür etsem azdır. Verdiğiniz kodlar sorunsuz çalışınca ne yardan ne de serden geçmemiş olduk. Çok değerli zamanınızı aldım hakkınızı helal edin. Öğrenmeye çalıştığım bu ilk aşamalarda sabırla verdiğiniz katkılarınızı ömür boyu unutmam mümkün değil. Dileğim, hayatınızda gerçekleşmesini istediğiniz her ne varsa mutlulukla sonuçlansın. En derin sevgi ve saygılarımla..

İyi dilekleriniz için teşekkür ederim
Katkı sağlayabildiysem ne mutlu bana.
Çalışmalarınızda başarılar dilerim.

 

[özdil1]

İyi dilekleriniz için teşekkür ederim
Katkı sağlayabildiysem ne mutlu bana.
Çalışmalarınızda başarılar dilerim.

Sayın Black Lord;
Yine yardımınıza ihtiyacım var. Yazdırma butonlarına evetli hayırlı bir uyarı mesajı ekleyebilirmiyiz. Çünkü bazan yanlışlıkla yazdır butonuna tıklandığında hemen yazıyor.Yardımınız için şimdiden teşekkür eder, saygılar sunarım.

 

[Mahir64]

Sayın Black Lord;
Yine yardımınıza ihtiyacım var. Yazdırma butonlarına evetli hayırlı bir uyarı mesajı ekleyebilirmiyiz. Çünkü bazan yanlışlıkla yazdır butonuna tıklandığında hemen yazıyor.Yardımınız için şimdiden teşekkür eder, saygılar sunarım.

Merhaba
Tabiki eklenebilir.
Siz hangi kodu kullanıyorsanız yollayın revize edelim

 

[özdil1]

Merhaba
Tabiki eklenebilir.
Siz hangi kodu kullanıyorsanız yollayın revize edelim

Private Sub CommandButton1_Click()
'Parafsız
Sheets("Sayfa1").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$J$46"
ActiveWindow.SelectedSheets.PrintOut Copies:=1

' Paraflı
ActiveSheet.PageSetup.PrintArea = "$A$1:$J$50"
ActiveWindow.SelectedSheets.PrintOut Copies:=2
End Sub

Sizin önerdiğiniz bu kodları kullanıyorum ve sorunsuz çalışıyor.Ancak direk yazdırmayı önlememiz iyi olacak.

 

[Mahir64]

Merhaba
Bu şekilde deneyin

Private Sub CommandButton1_Click()
Baslik$ = "DİKKAT !!!"
Mesaj$ = " Yazdırma İşlemi Gerçekleşsin mi??"
cevap$ = MsgBox(Mesaj$, 4 + 32 + 0, Baslik$)
If cevap$ = 6 Then
'Parafsız
Sheets("Sayfa1").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$J$46"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
' Paraflı
ActiveSheet.PageSetup.PrintArea = "$A$1:$J$50"
ActiveWindow.SelectedSheets.PrintOut Copies:=2
Else
End If
End Sub

 

[özdil1]

Merhaba
Bu şekilde deneyin

Private Sub CommandButton1_Click()
Baslik$ = "DİKKAT !!!"
Mesaj$ = " Yazdırma İşlemi Gerçekleşsin mi??"
cevap$ = MsgBox(Mesaj$, 4 + 32 + 0, Baslik$)
If cevap$ = 6 Then
'Parafsız
Sheets("Sayfa1").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$J$46"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
' Paraflı
ActiveSheet.PageSetup.PrintArea = "$A$1:$J$50"
ActiveWindow.SelectedSheets.PrintOut Copies:=2
Else
End If
End Sub

Çok teşekkür ederim sorunsuz çalıştı.

 

[Mahir64]

Çok teşekkür ederim sorunsuz çalıştı.

Kolay gelsin
iyi çalışmalar :hey: