UserForm'u Print yaparken yazıcı ayarlarını sorsun

[cocoa35]

Merhaba aşağıdaki kod ile userformu print ile yazıcıdan çıktı alabiliyorum ancak kağıt yatay olması gerekirken düşey yazdırıyor ve userformun bir kısmı boşta kalıyor, bu neden ile aşağıdaki kod'a ne eklememiz gerekirki command button ile print yaptığımda yazıcı ayarı çıksın ondan sonra yazdırsın teşekkürler

Private Sub CommandButton1_Click()
UserForm1.PrintForm
End Sub

 

[CengizYurek]

Merhaba aşağıdaki kod ile userformu print ile yazıcıdan çıktı alabiliyorum ancak kağıt yatay olması gerekirken düşey yazdırıyor ve userformun bir kısmı boşta kalıyor, bu neden ile aşağıdaki kod'a ne eklememiz gerekirki command button ile print yaptığımda yazıcı ayarı çıksın ondan sonra yazdırsın teşekkürler

Private Sub CommandButton1_Click()
UserForm1.PrintForm
End Sub

Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogPrint).Show
End Sub

 

[muhasebeciyiz]

Private Sub CommandButton1_Click()
With Application.Dialogs(xlDialogPrinterSetup)
.Show
.ActiveSheet.PageSetup.Orientation = xlLandscape
.ActiveSheet.PageSetup.PrintArea = "UserForm1"
End With
UserForm1.PrintForm
End Sub

Kodu denermisiniz

veya cengiz yürek koduna ilave

Private Sub CommandButton1_Click()

Application.Dialogs(xlDialogPrint).Show
ActiveSheet.PrintOut
End Sub

 

[cocoa35]

Private Sub CommandButton1_Click()
With Application.Dialogs(xlDialogPrinterSetup)
.Show
.ActiveSheet.PageSetup.Orientation = xlLandscape
.ActiveSheet.PageSetup.PrintArea = "UserForm1"
End With
UserForm1.PrintForm
End Sub

Kodu denermisiniz

Kod'u denedim aşağıdaki bölüm hata verdi

.ActiveSheet.PageSetup.Orientation = xlLandscape

 

[cocoa35]

Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogPrint).Show
End Sub

Merhaba bu kodu denedim print ayar bölümü çıktı ancak başka bir sayfa yazdırdı

 

[muhasebeciyiz]

Private Sub CommandButton1_Click()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets.Add
ws.PageSetup.Orientation = xlLandscape
Application.Dialogs(xlDialogPrinterSetup).Show
UserForm1.PrintForm
ws.Delete
End Sub

deneyiniz

 

[cocoa35]

Private Sub CommandButton1_Click()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets.Add
ws.PageSetup.Orientation = xlLandscape
Application.Dialogs(xlDialogPrinterSetup).Show
UserForm1.PrintForm
ws.Delete
End Sub

deneyiniz

Merhaba kodu denedim yazıcı ayarları çıktı ve tamam dedikten sonra " Excel dosyanız kalıcı olarak silinecek devam etmek istiyormusunuz " mesajı çıktı ek'te resim bulunuyor

 

[cocoa35]

Merhaba kodu denedim yazıcı ayarları çıktı ve tamam dedikten sonra " Excel dosyanız kalıcı olarak silinecek devam etmek istiyormusunuz " mesajı çıktı ek'te resim bulunuyor

örnek dosya ekledim commandbutton2'ye sizin kodu atadım

 

[cocoa35]

Merhaba kodu denedim yazıcı ayarları çıktı ve tamam dedikten sonra " Excel dosyanız kalıcı olarak silinecek devam etmek istiyormusunuz " mesajı çıktı ek'te resim bulunuyor

Merhaba sizin koddaki" ws Delete" çıkardım böyle bir ikaz vermiyor artık print ayar sayfası geliyor yatay ayarlıyorum ancak o yine dikey olarak yazdırıyor!

 

[CengizYurek]

Merhaba sizin koddaki" ws Delete" çıkardım böyle bir ikaz vermiyor artık print ayar sayfası geliyor yatay ayarlıyorum ancak o yine dikey olarak yazdırıyor!

Excel de yazdıracağınız sayfayı önceden sayfa ayarını yatay yapın isterseniz. Bir kere kaydedince yatay gelecektir artık. Sonra userform ile yazdırmayı denersiniz.