Yazdırma Kısayolu

[cengizhantunga]

Sayfa 1 de gerekli bilgileri girdikten sonra yine sayfa 1 de oluşturduğum bir butona basarak Sayfa 2' yi print etmek istiyorum nasıl bir makro yazmak gerekiyor
yardımcı olursanız sevinirim

http://www.dosya.tc/server2/NVXt23/PALETET_KET_GRAMMERGENEL.rar.html

Ekte kullanmış olduğum dosya var 1.sayfada palet datası var burada bir kaç değişiklik yaptıktan sonra ikinci sayfaya bilgiler yerleşiyor ve her seferinde ikinci sayfaya geçip direk yazdırmam gerekiyor palet datası sayfasına kısayol ekleyip 2 sayfayı(palet etiketi)direk yazdırmak için bir kısayol istiyorum yardımcı olursanız çok sevinirim.

 

[mustafakoker]

Selam Ekı İncelermisin

Sub paletetıketınıyaz()
'
' paletetıketınıyaz Makro
' By mustafa
'

'
ActiveSheet.Shapes("Button 3").Select
Sheets("PALET ETİKETİ").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

Sub kutuetıketınıyaz()
'
' kutuetıketınıyaz Makro
' by mustafa

'
Sheets("KUTU ETİKETİ").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

 

[mustafakoker]

ActiveSheet.Shapes("Button 3").Select


bu kodu kaldırın unuttum kaldırmayı yoksa sayfaya döndüğünde button açık görünüyor

 

[Seyit Tiken]

Bu şekilde kendinize uyarlayınız.

Sayfa2.[a1:h50].PrintOut

 

[cengizhantunga]

@mustafakoker


Hocam tam istediğim gibi yalnız yazdır dediğimde ikinci sayfaya geçiyor ve bu benim istemediğim bir olay ben 1.sayfada yazdırmak istiyorum ikinciye geçmesini istemiyorum

 

[Seyit Tiken]

Denedim bende 2.sayfaya geçmedi, kodlarınızı kontrol edin, 2.sayfaya geçiş kodu var mı-yok mu?

 

[mustafakoker]

ekı ıncelermısın
gereklı duzeltmelerı yaptım yazdırıp yıne data sayfana dönecektır

 

[Seyit Tiken]

Sub paletetıketınıyaz()
Sheets("PALET ETİKETİ").PrintOut Copies:=1
End Sub

Şeklinde deneyiniz.

 

[cengizhantunga]

@ mustafa
@seyit


çok teşekkür ederim elinize sağlık tam istediğim gibi olmuş.....