(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