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
#11
