listbox taki ya da bir çalışma sayfasını nasıl yazdırabiliriz.

[olymposss]

bir rapor almak için aşağıdaki kodları kullanıyorum.

Private Sub CommandButton1_Click()
Sheets("sayfa1").Select
bastar = CLng(CDate(textbox1))
bittar = CLng(CDate(textbox2))
[rapor!a2:z65536].ClearContents
For a = 1 To [a65536].End(3).Row
deg = Cells(a, "D")
If deg >= bastar And deg <= bittar Then
son = [rapor!a65536].End(3).Row + 1
Sheets("rapor").Range("a" & son & ":Z" & son) = Range("a" & a & ":Z" & a).Value
End If
Next
ListBox1.RowSource = "rapor!a1:Z" & [rapor!D65536].End(3).Row
End Sub

rapor aynı zamanda hem sayfa1 e işleniyor hemde listbox1 e.
benim istediğim ya listboxtaki verileri yazıcıdan almak ya da raporun alındığı sayfa1 i bastırmak. ancak yaptığım programda excel arkada kapalı olarak çalışmaktadır yani aşağıdaki kodları kullanıyorum;

Private Sub Workbook_Open()
If ActiveSheet.Name = "ana" Then
Cancel = True
Application.Visible = False
Sheets("ana").Visible = True
giris.Show
End If
End Sub
daha önce incelediğim yazıcı komutlarında bastırdığım sayfa aktif hale geliyor ve çıktı alamıyordum.
yardımcı olabilirmisiniz. çok teşekkürler
saygılar:yardim:
--------------------------------------------------------------------------
bana bir harf öğretenin KIRK yıl kölesi olurum.

 

[Levent Menteşoğlu]

Excelin gizli olması yazdırmanızı engellemez ancak baskı özinleme yapıyorsanız bu durumda hata verir. Bunu engellemek sayfa özinleme satırından önce exceli görünür yapan bir satır eklenmelidir.

 

[olymposss]

üstadlarım

bu konuda bana hangi kodları önerirsiniz?

saygılar,teşekkürler.:???:

 

[Levent Menteşoğlu]

Örneğin,

application.visible=true
activesheet.printpreview
application.visible=false