İki Sayfanın Yazdırılması

[htsumer]

form ve form_asil diye 2 sayfam var.Bu sayfanın birinde parafe var diğerinde parafe yok.
Çıktıyı aldığımda biri asıl yazı olarak bastırıyorum.Yani parafeli olan sayfayı.Parafesiz yazdırmak içinde parafeyi silip yazdırıyorum.
Daha sonra asıl sayfayı koylayıp ayrı yere aldım biri parafeli biri parafesiz.

form sayfasını aşağıdaki kod ile yazdırıyorum.

Private Sub CommandButton5_Click()
On Error Resume Next
Application.ScreenUpdating = False
Application.Visible = True
Me.Hide
    Sheets("form").Select
    ActiveWindow.SelectedSheets.PrintPreview
    Me.Show
Application.Visible = False
End Sub

İstediğim şu form sayfasını yazdırıken form_asil sayfasınıda ilk form sayfasından sonra yazdırsın.
Yani Yazdır dediğimde hem parafeli form sayfası yazacak hemde parafesiz form_asil sayfası yazdıracak..

 

[halit3]

form ve form_asil diye 2 sayfam var.Bu sayfanın birinde parafe var diğerinde parafe yok.
Çıktıyı aldığımda biri asıl yazı olarak bastırıyorum.Yani parafeli olan sayfayı.Parafesiz yazdırmak içinde parafeyi silip yazdırıyorum.
Daha sonra asıl sayfayı koylayıp ayrı yere aldım biri parafeli biri parafesiz.

form sayfasını aşağıdaki kod ile yazdırıyorum.

Private Sub CommandButton5_Click()
On Error Resume Next
Application.ScreenUpdating = False
Application.Visible = True
Me.Hide
    Sheets("form").Select
    ActiveWindow.SelectedSheets.PrintPreview
    Me.Show
Application.Visible = False
End Sub

İstediğim şu form sayfasını yazdırıken form_asil sayfasınıda ilk form sayfasından sonra yazdırsın.
Yani Yazdır dediğimde hem parafeli form sayfası yazacak hemde parafesiz form_asil sayfası yazdıracak..

bu kodu denermisiniz,

Private Sub CommandButton5_Click()
On Error Resume Next
Application.ScreenUpdating = False
Worksheets("form").PrintOut Copies:=1, Collate:=True
Worksheets("form_asil").PrintOut Copies:=1, Collate:=True
End Sub

 

[halit3]

yada böyle

Private Sub CommandButton5_Click()
Worksheets("form").PrintOut Copies:=1, Collate:=True
Worksheets("form_asil").PrintOut Copies:=1, Collate:=True
End Sub

 

[htsumer]

Teşekkür ederim..kodlar tamam..Baskı önizlemeye almıyor ama onuda halledebilirim sanırım ..

Her iki sayfayı seçip baskı önizlemeye aldığımda sonraki sayfada görünüyor.Sayfaları seç gibi bir kod ekleyip baskı önizlşemeye alıp yazdırmalıyım..
Form sayfasını açıp Ctrl+form_asil sayfasını tıkladığımda her iki sayfayı seçiyorum baskı önizlemeye aldığımda her iki sayfayı (önceki-sonraki) şeklinde görebiliyorum.Kurabilirsem bu mantık üzerine kod kurmam gerek.

Kolay gelsin

 

[halit3]

Teşekkür ederim..kodlar tamam..Baskı önizlemeye almıyor ama onuda halledebilirim sanırım ..

Her iki sayfayı seçip baskı önizlemeye aldığımda sonraki sayfada görünüyor.Sayfaları seç gibi bir kod ekleyip baskı önizlşemeye alıp yazdırmalıyım..
Form sayfasını açıp Ctrl+form_asil sayfasını tıkladığımda her iki sayfayı seçiyorum baskı önizlemeye aldığımda her iki sayfayı (önceki-sonraki) şeklinde görebiliyorum.Kurabilirsem bu mantık üzerine kod kurmam gerek.

Kolay gelsin

birde böyle dene yanlız bazkı ön izlemeden yazdıracaksınız.

Private Sub CommandButton5_Click()
Worksheets("form").PrintPreview
Worksheets("form_asil").PrintPreview
End Sub

 

[htsumer]

edit:deniyorum

 

[htsumer]

Baskı önizleme yapmadan olmayacak..Geri dönme şansı olması gerek..Baskı ön izlemede sütun ayarları yapılacak..

 

[htsumer]

Sayın Halit şu şekilde hallettim emeğiniz için teşekkür..Yol göstermiş oldunuz..Koay gelsin

Private Sub CommandButton5_Click()
On Error Resume Next
Application.ScreenUpdating = False
Application.Visible = True
Me.Hide
    Sheets(Array("form", "form_asil")).Select
    ActiveWindow.SelectedSheets.PrintPreview
Sheets("kütük").Select
Application.Visible = False
Me.Show
End Sub

 

[halit3]

ilgili sayfanın yazdırılacak alanınıda belirtebilirsiniz. belkide baskı ön izlemeye gerek kalmıyabilir.

Worksheets("form").PageSetup.PrintArea = "$A$2:$H$35"

 

[halit3]

Böylede olabilir.

Private Sub CommandButton5_Click()
Worksheets("form").PageSetup.PrintArea = "$A$2:$H$35"
Worksheets("form").PrintOut Copies:=1, Collate:=True
Worksheets("form").PageSetup.PrintArea = "$A$2:$J$50"
Worksheets("form_asil").PrintOut Copies:=1, Collate:=True
End Sub

 

[htsumer]

Teşekkür..Sorun halloldu..

 

[halit3]

iyi çalışmalar