Buton komutu

[teonet]

Merhaba,
il sırada bulunan ctrl+p için buton, diğeri ise yazdırmak için bir buton. Bu ikisini tek bir buton ile yapabilir miyiz?

Sub PrintSeç()
Application.Dialogs(xlDialogPrint).Show
End Sub

Sub Makro1()
Sheets("Sayfa1").PrintOut , 1
End Sub

Saygılarımla

 

[Kardiyak]

msgbox ile yapabilirsin

sub yazdır()
sor = msgbox( "Sayfa1 bir adet yazdırılsın mı?" & vbcrlf & "Baskı önizleme için Hayıra tıklayın",vbQuestion+vbYesNo,"Yazdırma Onayı"

if sor=vbyes then Sheets("Sayfa1").PrintOut , 1
if sor=vbno then Application.Dialogs(xlDialogPrint).Show

end sub

 

[teonet]

Sayın Kardiyak
Öncelikle değerli yardımınız için teşekkür ederim. Kodda aşağıdaki kısım kırmızı renk oluyor ve hata veriyor.

sor = msgbox( "Sayfa1 bir adet yazdırılsın mı?" & vbcrlf & "Baskı önizleme için Hayıra tıklayın",vbQuestion+vbYesNo,"Yazdırma Onayı"

 

[Kardiyak]

sonundaki parantezi kapatmayı unutmuşum. kusura bakma.

Sub yazdır()
sor = MsgBox("Sayfa1 bir adet yazdırılsın mı?" & vbCrLf & "Baskı önizleme için Hayıra tıklayın", vbQuestion + vbYesNo, "Yazdırma Onayı")

If sor = vbYes Then Sheets("Sayfa1").PrintOut , 1
If sor = vbNo Then Application.Dialogs(xlDialogPrint).Show

End Sub

 

[teonet]

Estağfurullah, yardımcı olmaya çalışıyorsunuz.

Sub yazdır() için belirsiz ad algılandı hatası veriyor

 

[Muzaffer Ali]

Kırmızı renki satır eksik olduğundan hata alıyorsunz.

Sub yazdır()
[COLOR="Red"]Dim sor As VbMsgBoxResult[/COLOR]
sor = MsgBox("Sayfa1 bir adet yazdırılsın mı?" & vbCrLf & "Baskı önizleme için Hayıra tıklayın", vbQuestion + vbYesNo, "Yazdırma Onayı")

If sor = vbYes Then Sheets("Sayfa1").PrintOut , 1
If sor = vbNo Then Application.Dialogs(xlDialogPrint).Show

End Sub

 

[teonet28]

Sayın Dalgalikur
çok güzel oldu elinize sağlık. Fakat bir sorunum var. Aşağıda Sayfa1 i değiştirerek başka sayfa ismi yazıyorum fakat o sayfayı yazdırmıyor. Bunu nasıl düzeltebilirim?

If sor = vbYes Then Sheets("Sayfa1").PrintOut , 1

 

[Muzaffer Ali]

Aşağıdaki kodları deneyin.
Sayfa ismini değiştirmek istediğinizde kırmızı renkli olan kısmı değiştirerek yapın.

Sub yazdır()
    Dim sor As VbMsgBoxResult
    Dim SayfaAdi As String
    
    SayfaAdi = [COLOR="Red"]"Sayfa1"[/COLOR]
    
    sor = MsgBox(SayfaAdi & " bir adet yazdırılsın mı?" & vbCrLf & "Baskı önizleme için Hayıra tıklayın", vbQuestion + vbYesNo, "Yazdırma Onayı")
    Sheets(SayfaAdi).Activate
    If sor = vbYes Then ActiveSheet.PrintOut , 1
    If sor = vbNo Then Application.Dialogs(xlDialogPrint).Show
End Sub

 

[teonet28]

Süper oldu,
Değerli desteğin için teşekkürler

 

[Muzaffer Ali]

Rica ederim.