Birden fazla sayfayı yazdır kodları

[gezgin-49]

Sayın üstadlarım userformda birden fazla sayfayı yazdırmak için atadığım butona

Private Sub CommandButton6_Click() 
Sheets("Talep Bildirimi").PageSetup.PrintArea = "Talep Bildirimi!A1:E55"
Sheets("Talep Bildirimi").PrintOut
Sheets("Hesap Durumu").PageSetup.PrintArea = "Hesap Durumu!A1:N49"
Sheets("Hesap Durumu").PrintOut
Sheets("Karar Sayfası").PageSetup.PrintArea = "Karar Sayfası!A1:Q37"
Sheets("Karar Sayfası").PrintOut

TextBox1.SetFocus
MsgBox "Hazırlamış olduğunuz Sayfalar yazıcıya gönderildi...!!", vbOKOnly + vbInformation, Application.UserName
End Sub

kodlarını yazdığım halde hata veriyor. acaba nerede hata yapıyorum.(mümkünse her sayfanın ayrı ayrı önizlemesini de bu butona ekleyebilirmiyiz, ama sayfa önizleme çok da önemli değil, yazdır makrosunu çözsem bana yeter)

 

[uzmanamele]

merhaba

bu şekilde deneyiniz.

Sheets("Talep Bildirimi").PageSetup.PrintArea = "Talep Bildirimi!A1:E55"

yerine

Sheets("Talep Bildirimi").PageSetup.PrintArea = "A1:E55"

 

[gezgin-49]

Sayın Uzmanamele üstadım Allah sizden razı olsun tam istediğim gibi oldu, sağolun varolun,