Başka yazıcıya yazdırma

[merakli_72]

Selam;
1.varsayılan değilde başka bir yazıcıya yazdırmak istediğimde excel

Application.ActivePrinter = "Ne04: üzerindeki iR2200 " şeklinde kod üretiyor buradaki Ne04: nedir, ben yazdırmak istediğim yazıcının ne üzerinde olduğunu nerden bileceğim.
(uygulama başka bir bilgisayarda çalışacak, uygulamanın bir sayfasına çıktı alınmak istenen yazıcı isimleri yazılacak uygulama bu yazcılara sırayla çıktı verecek)

2.çıktı alınmak istendiğinde de
ActiveWindow.SelectedSheets.PrintOut Copies:=1
şeklinde kod üretiyor. seçili sayfa haricinde bir sayfa yazdırılamazmı

ActiveWindow.Sheets("Sayfa1).PrintOut Copies:=1 şeklinde yazım hata veriyor
Teşekkürler

 

[Mahir64]

Selam;
2.çıktı alınmak istendiğinde de
ActiveWindow.SelectedSheets.PrintOut Copies:=1
şeklinde kod üretiyor. seçili sayfa haricinde bir sayfa yazdırılamazmı

ActiveWindow.Sheets("Sayfa1).PrintOut Copies:=1 şeklinde yazım hata veriyor
Teşekkürler

Merhaba

Sub yazdır()
Sheets("Sayfa2").Select 'yazdırılacak sayfa
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("Sayfa1").Select 'ana sayfaya dön
End Sub

Bu mantıkla yapabilirsiniz.

 

[Emir Hüseyin Çoban]

Selam;
1.varsayılan değilde başka bir yazıcıya yazdırmak istediğimde excel

Application.ActivePrinter = "Ne04: üzerindeki iR2200 " şeklinde kod üretiyor buradaki Ne04: nedir, ben yazdırmak istediğim yazıcının ne üzerinde olduğunu nerden bileceğim.
(uygulama başka bir bilgisayarda çalışacak, uygulamanın bir sayfasına çıktı alınmak istenen yazıcı isimleri yazılacak uygulama bu yazcılara sırayla çıktı verecek)

Merhaba, bir kaç gün önce işyerinde kullanmak üzere bu mantıkla bir çalışma yapmıştım. Bütün ayarlamaları kendi bilgisayarımda yaptım diğer bilgisayarlara gidince yazdırma işlemini gerçekleştirmedi.

Benim bilgisayarımda Ne04 olarak görünürken, başka bilgisayarlarda Ne01 olarak görünüyordu.

Tablonuzu kullanılacak olan bilgisayara göre uyarlamanız gerekiyor.

 

[merakli_72]

mrb,
işte bende onu merak ediyorum
bu Ne01, Ne04 nedir, bunları nerden okur
bunları bilip baştan ona göre yazmam laızm hangi bilgisayarlarda çalışacağı belli değil uygulamanın
Bunları bilen varmı acaba

 

[senol1979]

Bir modül içerisine aşağıdaki kodları ekleyin.

Sub Yazici_Sec()
Dim Yazıcı As String
Yazıcı = Application.Dialogs(xlDialogPrinterSetup).Show
If Yazıcı = False Then Exit Sub
End Sub

Sub Yazdir()
Worksheets("AAA").Activate
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True

End Sub

AAA kısmını sayfa adına göre değiştirirsiniz.

Yazdırma işlemini atadığınız butona da:
Module1.Yazici_Sec
Module1.Yazdir
şeklinde ekleyin. Module1 örnek olsun diye verdim 2, 3, 4, 5 de olabilir.
Kod bilgisayardaki tanımlı yazıcıları bir kutu içerisinde sıralıyor. İstediğinizi seçip ardından yazdırabilirsiniz.

 

[merakli_72]

Mrb,
yazıcı seçme olmamalı, kurulu yazıcılara otomatik olarak göndermeli
Kafamızda şekillenmesi içn şöyle anlatmaya çalışayım.
Merkez şubede bir bilgisayarda makrolar yardımıyla sürekli rapor çeken bir bilgisayar var,
saatte bir bu raporları kendisinde kurulu olan yazıcılara (A ve B şubesindeki yazıcılar ağ yazıcısı olarak kurulu) yazdıracak, birisi faks çekmek için uğraşmayacak

NOT 1: Yazıcıların kurulumunda, çalışmasında sorun yok, normal şartlarda o bilgisayardan çıktı alabiliyoruz, bunu makrolar yardımıyla otomatikleştirmek istiyoruz
NOT 2: Sadece kurulu yazıcılara sırasıyla yazdırma kısmını yapamadık, uygulamanın diğer ksımları tamam

 

[senol1979]

Ben bağlı yazıcıların adreslerini öğrenmek için makro kaydet yöntemini kullanıyorum. Makro kaydet ile baskı önizleme ve ardından yazıcı seçip tekrar ön izleme yapıp yazdırmadan çıkıyorum ve makro kaydetme işlemini durduruyorum. Sırasıyla işlemi diğer yazıcılar için tekrarlarsanız adreslerini bulmuş olursunuz. Sonrası da yazdır makrosunun tekrarlanması. (yazıcı adreslerini değiştirerek)

 

[merakli_72]

Tamam ama ya uygulama başka bir bilgisayarda calısacaksa
her calısması gereken bilgisayarda bunu yapmak lazım
bu Ne??lerin bir mantığı yokmu