iki ayri sayfayi baski on izlemede gorebilmek?

[asildayi]

bu kod ile denedim sadece bir sayfa gorunuyor.

Sub transfer()
'
' transfer Macro
' Macro enregistrée le 10/06/2008 par OBUSIGNIES
'

'
Range("F1").Select
Selection.Copy
Sheets("Base").Select
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A4:Z1001").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("A1:Z2"), CopyToRange:=Range("CA4:CZ4"), Unique:=True
Sheets("Formulaire").Select
Sheets("base1").Select
ActiveWindow.SelectedSheets.PrintPreview
End Sub

 

[asildayi]

Sorunu çözdüm sizlerle paylasmak istedim

Dogrusu su sekilde :

Sub transfer()
'
' transfer Macro
' Macro enregistrée le 10/06/2008 par OBUSIGNIES
'

'
Range("F1").Select
Selection.Copy
Sheets("Base").Select
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A4:Z1001").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("A1:Z2"), CopyToRange:=Range("CA4:CZ4"), Unique:=True
Sheets(Array("Formulaire", "base1")).Select
ActiveWindow.SelectedSheets.PrintPreview
End Sub