seçtiğim yazıcıdan çıktı alabilmek

[sametumur]

Private Sub UserForm_Initialize()
Dim PrinterList As String, oSystem As Object, oPrinter As Object
Dim i As Single
Set oSystem = GetObject("winmgmts:").instancesOf("Win32_Printer" )
For Each oPrinter In oSystem
ComboBox8.AddItem oPrinter.Name
Next
Set oSystem = Nothing
End Sub

yukarıdaki kodlarla ComboBox8 e bilgisayardaki yüklü yazıcıları listeliyorum.

istediğim, oluşturduğum yazdır butonuna tıkladığımda sayfa2 nin combobox8 de seçili olan yazıcıdan çıktı alınması. bunu nasıl yapabilirim?

 

[ÖmerBey]

Merhaba, aşağıdaki kodu deneyiniz...

Sheets("Sayfa2").PrintOut , , , , Combobox8.Text

 

[sametumur]

normalde print için şu kodu kullanıyordum.

Sayfa2.PrintOut Copies:=1

yeni kodu aşağıdaki gibi mi uygulayacağız?

Sheets("Sayfa2").PrintOut , , , , Combobox8.Text Copies:=1

 

[sametumur]

Sheets("Sayfa2").PrintOut , , , , Combobox8.Text Copies:=1

bu kodu uyguladığımda hata aldım. (Copies:=1) kısmından

bir de

Sheets("Sayfa2").PrintOut , , , , Combobox8.Text

bu şekilde uygulayınca da hata aldım tüm satırdan

 

[ÖmerBey]

Sayfa2.PrintOut Copies:=1, Activeprinter:= Combobox8.Text

veya

Sayfa2.PrintOut ,,1,,Combobox8.text

 

[sametumur]

çok teşekkür ederim. güzel oldu

yazıcı olarak "Microsoft XPS Document Writer" seçtiğimde karşıma çıkan kayıt ekranında iptal dediğimde hata veriyordu.

kodun başına "On Error Resume Next" ekleyerek çözüldü.

ilginiz için teşekkür ederim.