Sayfa1 çıktısını aldığımda 3 sayfa olarak veriyor 2.

[imdatsaral]

selam arkadaşlar,

Sayfa1 çıktısını aldığımda 3 sayfa olarak veriyor sadece 2. safanın çıktısını aldırabileceğim bir makroya ihtiyacım var

imdat saral
izmir

 

[isakarakus]

merhaba,

sayfa 2 seçip dosya menüsünden yazdırma alanı olarak belirleyerek
yazdırabiliryorsunuz, bunu denediniz mi?

 

[imdatsaral]

sayın isakarakus,

yazdırılmasını istediğim alam sayfa1 de anlatmak istediğim sayfa1'i ön izleme yaptığımda çıktı 3 safya olarak görünüyor ben sadece 2. sayfayı yazdırmak istiyorum

 

[birol_mumcu]

mehaba; :hey:
ozaman
görünümden sayfa sonu ön izlemeyi seçim mavi çizgilerden yazdıracağınız alanı belirleyip ön izlemeden kontrol edin ve yazdırın
kolay gelsin

 

[red_lion_72]

selam,

yazdırırken sayfa seçebilirsiniz. CTRL+P dedikten sonra önünüze gelen sayfa da yazdırma aralığına 2 yazarsanız sadece 2. sayfayı yazdıracaktır. ama ısrarla makro istiyorsanız bakalım..

kolay gelsin

 

[imdatsaral]

sayın birol_mumcu, ve WAKKASSSS,

benim elimde şu makro var

Sub Düğme1_Tıklat()
Sheets("STICKER").PrintOut Copies:=1
End Sub

düğmeyi tıkladığımda 3 sayfa olarak veriyor
benim istediğim tıkladığımda sadece 2. sayfa çıksın yazıcıdan

 

[Haluk]

    Sheets("STICKER").PrintOut From:=2, To:=2

 

[birol_mumcu]

merhaba;
şunu deneyin
Çoklu çalışma sayfalarında yazdırma (print) komutu uygulaması...
'Tüm seçili sayfalardan vede seçili alanlardan tek bir sayfanın print yapılması ?
Sub MultiSheetPrint()
Dim oActive As Object
Dim oSheet As Object
Dim oSheets As Object
Dim wsPrint As Worksheet
Dim oLastPic As Object
Dim iPics As Integer
' remember where we are
Set oSheets = ActiveWindow.SelectedSheets
If oSheets.Count = 1 Then
Selection.PrintOut preview:=True
Exit Sub
End If
Set oActive = ActiveSheet
Application.ScreenUpdating = False
oActive.Select ' otherwise we get lots of new sheets
Set wsPrint = Worksheets.Add
For Each oSheet In oSheets
If TypeName(oSheet) = "Worksheet" Then
iPics = iPics + 1
oSheet.Activate
Selection.CopyPicture
wsPrint.Cells(iPics * 3 - 2, 1).Value = oSheet.Name
wsPrint.Paste wsPrint.Cells(iPics * 3 - 1, 1)
wsPrint.Rows(iPics * 3 - 1).RowHeight = _
wsPrint.Pictures(iPics).Height
End If
Next
wsPrint.PrintOut preview:=True
Application.DisplayAlerts = False
wsPrint.Delete
Application.DisplayAlerts = True
oSheets.Select
oActive.Activate
Application.ScreenUpdating = True
End Sub
kodlar syn NURZİYA HİÇDURMAZ'a aittir
ona da teşekkürler

 

[xxrt]

Bazı Makroları,Makro kaydet ile yapabilirsiniz.Aşağıdaki Gibi..

ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _
:=True

 

[imdatsaral]

sayın Raider, birol_mumcu ve xxrt,

Yardımlarınız için çok teşekkür ederim


imdat saral
izmir