UserForm İle Önizle Yazdır ve Yazıcı Seç

[ormann]

İyi günler ;
Ekli dosyada ana sayfa üzerindeki buton ile UserForm1 açılıyor .UserForm1'de Yazdrılacak Sayfa Adedi,Yazıcı Seç ,Önizle ve Yazdır Butonları var.Bunlara makro atayarak önizle,yazıcı seç,yazdırma ve varsayılan yazıcıyı atayarak rapor sayfasını yazdırabilir miyiz.
https://dosya.co/lm5jljos7spy/Yazıcı.xlsm.html

 

[Hakan ERDOST]

Userformun üzerine bir buton ile yazıcı penceresini görüntülemek ve istediğiniz tüm çalışmaları burada yapmak mümkün.Bunun için butonun kod bölümüne;

Application.Dialogs(xlDialogPrint).Show

yazmanız yeterli. Bu kod windows yazıcı formunu görüntüledikten sonra tüm istediklerinizi yapmanız mümkün.

 

[ormann]

Sayın hexadesimal
Bu işlemleri ben userfom üzerindeki butonlar üzerinden yapmak istiyorum.

 

[Hakan ERDOST]

Dosyanız ekte.Bende fiziki yazıcı yok sanal yazıcılarda da sorun çıkmadı. Umarım sizde de çıkmaz.

 

[ormann]

Link ekler mısınız?

 

[Hakan ERDOST]

Link ekler mısınız?

https://www.dosyaupload.com/69yv

 

[ormann]

Sayın hexadesimal TextBox1 'de yazdırma sayısı 1 gözükebilir mi ?.Bunu kullanıcı isterse 2 ve yukarısı yapabilir .

 

[Hakan ERDOST]

Sayın hexadesimal TextBox1 'de yazdırma sayısı 1 gözükebilir mi ?.Bunu kullanıcı isterse 2 ve yukarısı yapabilir .

https://www.dosyaupload.com/exQQ

 

[ormann]

Merhabalar;
Sayın hexadesimal excel tam ekranda önizle butonuna bastığımda ESC tuşu ile anasayfaya dönüş olmuyor. Rica etsem bakarmısınız ?

 

[Hakan ERDOST]

Merhabalar;
Sayın hexadesimal excel tam ekranda önizle butonuna bastığımda ESC tuşu ile anasayfaya dönüş olmuyor. Rica etsem bakarmısınız ?

 Application.SendKeys "% {F4}" 'ALt + F4 (Kapat)

Kodunu önizleme kodunun alt kısmına, UserForm1.Show satırının üstüne yapıştırın. Böylece Alt+F4 tuşuyla çıkabilirsiniz.