Skip to main content

AccessTr.neT


başka bir excel dosyasını yazdırmak

başka bir excel dosyasını yazdırmak

Çözüldü #7
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?
Cevapla
Çözüldü #8
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.
Please return your positive or negative ...
Cevapla
Çözüldü #9
değer sayfalar sadece yazdırılacak veri aktarılmayacak
Cevapla
Çözüldü #10
Bu şekilde denermisiniz...
.rar Yeni klasör.rar (Dosya Boyutu: 349,13 KB | İndirme Sayısı: 17)
Please return your positive or negative ...
Cevapla
Çözüldü #11
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
Cevapla
Çözüldü #12
(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

Please return your positive or negative ...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task