merhaba arkadaşlar kendi hazırladığım ve ticari program olarak kullandığım bir proje var bunu içinde fatura bastırmak için bir bölüm var verileri sırayla yazıcıya gönderip yazıdırıyor bunu yaparken varsayılan yazıcıyı değişitiriyor(nokta vuruşlu ile)şimdi ingilizce office kurdum fakat bu makro çalışmamaya başladı yani yazıcıya göndermiyor dilden kaynaklanıyor sanırım aşağıda verdiğim kodları ingilizce office için düzenlememe yardımcı olursanızı sevinirim
Sub epsonyazdır()
Dim say As Integer
Dim yaz
say = WorksheetFunction.CountA(Worksheets("Müşteri veri tabanı").Range("B1:B65000"))
For Each yaz In Worksheets("Müşteri veri tabanı").Range("A2" & ":" & "A" & say)
If yaz = 1 Then
Worksheets("OtomatikFatura").Range("B9").Value = yaz.Offset(0, 2).Value
Worksheets("OtomatikFatura").Range("B10").Value = yaz.Offset(0, 3).Value
Worksheets("OtomatikFatura").Range("B11").Value = yaz.Offset(0, 4).Value
Worksheets("OtomatikFatura").Range("L11").Value = yaz.Offset(0, 5).Value
Worksheets("OtomatikFatura").Range("A16").Value = yaz.Offset(0, 6).Value
Worksheets("OtomatikFatura").Range("L16").Value = yaz.Offset(0, 7).Value
Worksheets("OtomatikFatura").Range("P16").Value = yaz.Offset(0, 8).Value
Worksheets("OtomatikFatura").Range("Q22").Value = yaz.Offset(0, 9).Value
Worksheets("OtomatikFatura").Range("Q23").Value = yaz.Offset(0, 10).Value
Application.ActivePrinter = "LPT1: üzerindeki EPSON LX-300+ /II"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next
bitir:
MsgBox "Fatura Kesme İşlemi Bitti", vbInformation, "SeTuZe Fırın Otomasyon"
End Sub
Sub epsonyazdır()
Dim say As Integer
Dim yaz
say = WorksheetFunction.CountA(Worksheets("Müşteri veri tabanı").Range("B1:B65000"))
For Each yaz In Worksheets("Müşteri veri tabanı").Range("A2" & ":" & "A" & say)
If yaz = 1 Then
Worksheets("OtomatikFatura").Range("B9").Value = yaz.Offset(0, 2).Value
Worksheets("OtomatikFatura").Range("B10").Value = yaz.Offset(0, 3).Value
Worksheets("OtomatikFatura").Range("B11").Value = yaz.Offset(0, 4).Value
Worksheets("OtomatikFatura").Range("L11").Value = yaz.Offset(0, 5).Value
Worksheets("OtomatikFatura").Range("A16").Value = yaz.Offset(0, 6).Value
Worksheets("OtomatikFatura").Range("L16").Value = yaz.Offset(0, 7).Value
Worksheets("OtomatikFatura").Range("P16").Value = yaz.Offset(0, 8).Value
Worksheets("OtomatikFatura").Range("Q22").Value = yaz.Offset(0, 9).Value
Worksheets("OtomatikFatura").Range("Q23").Value = yaz.Offset(0, 10).Value
Application.ActivePrinter = "LPT1: üzerindeki EPSON LX-300+ /II"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next
bitir:
MsgBox "Fatura Kesme İşlemi Bitti", vbInformation, "SeTuZe Fırın Otomasyon"
End Sub