Sayfa Yapısı

[ccumhur]

Arkadaşlar userformdan,
Application.Dialogs(xlDialogPageSetup).Show
ile sayfa yapısını actırıyoruz burdaki seçilenler göre userform acıkken tamam deyip yazdırmayı başaramadım yardımlarınızı bekliyorum.Tşk.

 

[memduh]

Private Sub CommandButton1_Click()
UserForm1.Hide
Application.Dialogs(xlDialogPageSetup).Show
ThisWorkbook.Worksheets("sayfa1").PrintOut Copies:=1, Collate:=True
UserForm1.Show
End Sub

 

[Seyit Tiken]

Arkadaşlar userformdan,
Application.Dialogs(xlDialogPageSetup).Show
ile userform acıkken tamam deyip yazdırmayı başaramadım yardımlarınızı bekliyorum.Tşk.

Kodunuzu bu kodla değiştiriniz.

Sub Düğme1_Tıklat()
Application.Dialogs(xlDialogPrint).Show
End Sub

 

[ccumhur]

ikinizede teşekürler