Evet ama yazdırmayıda bu tuşa bağlama imkanıda varmı uğraştım ama bir türlü yapamadım. eğer olmaz ise excelde bir tuş ile çözeceğim. ayrıca yazma işlemi bitince Excel kapana bilirmi?

4 numaralı mesajı tekrar okuyunuz...

Eldeki verilerle diğer sayfaya aktarılacak verileri yazarmısınız...

1.sayfa tamam fakat diğer sayfalara aktarılıcak veriler anlaşılmıyor.

değer sayfalar sadece yazdırılacak veri aktarılmayacak

Bu şekilde denermisiniz...

kodu şu şekilde düzenledim acaba olrmu
Private Sub Komut41_Click()
Dim exceldosyasi As Object
Set exceldosyasi = CreateObject("Excel.Application")
With exceldosyasi
.Application.Visible = True
.UserControl = True
.Workbooks.Open Filename:=CurrentProject.Path & "\test.xlsx"
.Cells(11, 6).Value = Me.İŞLETME_NO
.Cells(15, 6).Value = Me.ADI_SOYADI
.Cells(16, 6).Value = Me.BABA_ADI
.Cells(17, 6).Value = Me.TC_NO
.Cells(18, 6).Value = Me.KÖYÜ
.Cells(19, 6).Value = Me.TELEFON
.Sheets("KAPAK").PrintOut
.Sheets("ASILAMA").PrintOut
.Sheets("DEFTER").PrintOut
"" Bu sayfayı 5 nusha çıkarmak mümkünmü" böyle bir kod varmı""


End With
End Sub

(17/01/2012, 22:03)keyhay yazdı: kodu şu şekilde düzenledim acaba olrmu
Private Sub Komut41_Click()
Dim exceldosyasi As Object
Set exceldosyasi = CreateObject("Excel.Application")
With exceldosyasi
.Application.Visible = True
.UserControl = True
.Workbooks.Open Filename:=CurrentProject.Path & "\test.xlsx"
.Cells(11, 6).Value = Me.İŞLETME_NO
.Cells(15, 6).Value = Me.ADI_SOYADI
.Cells(16, 6).Value = Me.BABA_ADI
.Cells(17, 6).Value = Me.TC_NO
.Cells(18, 6).Value = Me.KÖYÜ
.Cells(19, 6).Value = Me.TELEFON
FOR I=1 to 5 'Burasını ve
.Sheets("KAPAK").PrintOut
.Sheets("ASILAMA").PrintOut
.Sheets("DEFTER").PrintOut
NEXT I 'Burasını ilave ediniz.
"" Bu sayfayı 5 nusha çıkarmak mümkünmü" böyle bir kod varmı""


End With
End Sub