YAZDIR SAYFA AYARI

[mgcaglayan]

Selamlar;
Userformda bulunan buton ile yazdırma sırasında sayfanın sağ, sol ve yükseklik boyutlarını ayarlayabilirmiyiz. Þimdiden teşekkürler.

 

[nziya]

Aşşağıdaki kod işinizi görür sanırım
Private Sub CommandButton1_Click()
On Error Resume Next
soru = MsgBox("Sayfa Yazdırılacak, Ã?nizleme Yapmak İstiyor musunuz?", vbYesNo, "Ã?nizleme")
If soru = vbYes Then
userform1.Hide
Sheets("sayfa1").PrintPreview
userform1.Show
Range("A1").Select
Else
Sheets("sayfa1").PrintOut
End If
End Sub

 

[mgcaglayan]

Teşekkürler;
Ancak, verilen kod işime yaramadı. İstenin önizleme değil.
Sabit bir şekilde yazdırılacak alanın kağıttaki yerini de sabit tutmak.

 

[cyberwolf1980]

mgcaglayan, alttakı kodları bı dene ısını goruyorlarmı ?
Not :alan sınırlama sadece A1-J30 hucrelerı arasında yapıldı sen ıstedıgın gıbı ayarla ok

Sub ALAN_SABITLE()
Range("A1:J30").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$J$30"
End Sub

ıyı gunler

 

[cyberwolf1980]

mgcaglayan, yada ıstersen bu sekıldede sayfa ayarı yapabılırsın

Sub alan_2()
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 300
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
End Sub

 

[cyberwolf1980]

[
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=False, Collate:= _
True
End Sub

Preview yazan yerı false yaparsan alanı .mdi ( microsoft ımage )olarak kaydedip kontrol edebılırsın ok ?