+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: başka bir excel dosyasını yazdırmak (/konu-baska-bir-excel-dosyasini-yazdirmak.html)
Cvp: başka bir excel dosyasını yazdırmak - keyhay - 17/01/2012
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?
Cvp: başka bir excel dosyasını yazdırmak - POWER - 17/01/2012
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.
Cvp: başka bir excel dosyasını yazdırmak - keyhay - 17/01/2012
değer sayfalar sadece yazdırılacak veri aktarılmayacak
Cvp: başka bir excel dosyasını yazdırmak - POWER - 17/01/2012
Bu şekilde denermisiniz...
Cvp: başka bir excel dosyasını yazdırmak - keyhay - 17/01/2012
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
Cvp: başka bir excel dosyasını yazdırmak - POWER - 17/01/2012
(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