AccessTr.neT
Yazıcı seçme ve yazdırma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Yazıcı seçme ve yazdırma (/konu-yazici-secme-ve-yazdirma.html)

Sayfalar: 1 2 3 4


Cvp: Yazıcı seçme ve yazdırma - ogulcan92 - 25/04/2012

Sn:hegu
Örneğinizi inceleyemedim ama kodu aşağıdaki şekilde yazınız.

Application.ActivePrinter = "USB001: üzerindeki VEZNE HP LaserJet 1022 "
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""USB001: üzerindeki VEZNE HP LaserJet 1022 "",,TRUE,,FALSE)"



Cvp: Yazıcı seçme ve yazdırma - DUAYEN - 25/04/2012

Bakalım olmuş mu ? inceleyip tekrar dönüş yaparmısınız.
duayen-dyn.rar



Cvp: Yazıcı seçme ve yazdırma - hegu - 26/04/2012

sayın Duayen
İş yerine gidince deneme şansım olur size o zaman dönerim. Ama ilginize teşekkür ederim.


Cvp: Yazıcı seçme ve yazdırma - hegu - 27/04/2012

Sayın Duayen,
Denedim fakat hata verdi. Hatayı resim olarak ekliyorum. Debuga tıklayınca da "Application.ActivePrinter = "USB001: üzerindeki VEZNE HP LaserJet 1022 "
burayı seçiyor.
teşekkür ederim.

[Resim: 13355023521.jpg]


Cvp: Yazıcı seçme ve yazdırma - DUAYEN - 27/04/2012

Birde bu şekilde denermisiniz bende hata vermedi.
Kod:
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""USB001: üzerindeki VEZNE HP LaserJet 1022 "",,TRUE,,FALSE)"




Cvp: Yazıcı seçme ve yazdırma - hegu - 27/04/2012

Sayın Duayen,
malesef denedim yine olmadı.
ama ilginize çok teşekkür ederim. Olmazsa ben en son yapmış olduğum halde kullanmaya devam edeyim.
teşekkür ederim.