Çalışma Sayfasında Formülle Belirlediğim Kadar Sayfanın Çıktısını Alma

[downsoon]

Merhaba arkadaşlar;

Ekteki dosyada yazdıra basınca p1 hücresinde yazan sayfa kadar sayfanın çıktısını alıyorum ama yazıcı ayarımdan dolayı arkalı önlü çıkıyor ve ben tek yüze yazdırmak istiyorum. Bunun ayarı var mı

 

[downsoon]

Sub YuvarlatılmışDikdörtgen1_Tıklat()
ActiveSheet.PrintOut From:=1, To:=ActiveSheet.Range("P1")
End Sub

Kullandığım makro da bu

 

[spacebar]

merhaba konu ilgimi çekti. işime yarayabilir diye bekledim ama yazan olmayınca internette araştırdım. aşağıdaki gibi bir kod buldum. A1 hücresindeki değer kadar sayfayı yazdırıyor. işine yarayabilir belki.

Sub Print_Pages()
Dim xPage As Integer
Dim xYesorNo As Integer
With ActiveCell
If Not IsEmpty(.Value) And IsNumeric(.Value) Then
xPage = .Value
Else: MsgBox "Please specify a cell and enter a page in cell"
Exit Sub
End If
End With
xYesorNo = MsgBox("Ready to print page" & xPage & " ", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
ActiveSheet.PrintOut from:=xPage, To:=xPage, preview:=True
Else
Exit Sub
End If
End Sub

 

[downsoon]

Teşekkürler arkadaşım. Ben de yazdıktan sonra araştırmalar yaptım. Yazdığım kod çalıştı ama önizleme yapmadan direkt yazdırıyor bu. Sendeki önizleme yapıyor o güzel ama bu da sadece 3. sayfayı yazdırdı. Bense ilk 3 sayfayı yazdırmak istiyordum. Ama bu da faydalı bi kod oldu, kullanacak biyer bulunur bu şekilde

 

[spacebar]

bekliyelim biraz daha. bir yardım eli uzanır