Userformu Print yapmak

[byfika]

Merhabalar,
Userform üzerindeki textbox1 e veri girildiğinde diğer textboxlara sayfadan veri getiriyorum, combobox da seçim yapıyorum.
Option button ile yazıcıdan çıktı almak için yazıcıya gönderiyorum. Bildiğim kadarıyla Userformun yazıcıya gönderilmeden önce ön izlemesi yapılamıyor. Excel VBA da yok.
YAPMAK İSTEDİĞİM:
Kimlik kartı büyüklüğünde userformda görüldüğü şekilde jpeg ön izleme yapıp print etmek. Bu mümkün mü?
Bilgi için teşekkürler.

 

[Muzaffer Ali]

Merhaba.
Ön izleme yapmak istediğiniz formun aynı şeklini bir sayfada yapın TectBox ve Combobox verilerini de gerekli hücrelere aktarın, sayfa ön izlemesi yapın.
Bu daha kolay ve kullanışlı olacaktır.

Örnek:
Belli bir alanı ön izlemek için
Sayfa1.Range("A2:H20").PrintPreview
Yazdırmak için
Sayfa1.Range("A2:H20").PrintOut

 

[Suskun]

Doğrudan yazdırma da sorun userform boyutu ise yazdırmadan önce küçültebilirsiniz.

Private Sub OptionButton1_Click()
    ' Application.Dialogs(xlDialogPrinterSetup).Show 'Yazıcıları göster
     Me.Zoom = 50
     Me.PrintForm
     Me.Zoom = 100
     OptionButton1.Value = False
    ...
    ..
End sub

 

[byfika]

Sayın Dalgalıkur, ilgilendiğiniz için teşekkürler.
İnternette API buldum, dosyaya uyarlamaya çalıştım. Fakat eksikler var. Userform üzerindeki option butonu tıklandığında masa üstüne html uzantısı ve pdf1 klasörü açmakta. PDF1 klasöründeki İmage002 yi ön izleme ve arkasında yazıcıya gönderme işlemi için option butonuna nasıl bir kod ilave edilmeli ki tüm işlemleri yapsın?
Saygılarımla...

 

[Muzaffer Ali]

Bence buna hiç gerek yok yukarıda dediğim gibi yapmanız çok daha kullanışlı ve doğru olacaktır.
Eğer önizleme yapacağınız sayfa görünmesin isterseniz, ön izleme sonrasında gizleyebilirsiniz.
Ben şahsen Api yi çok istisnalar dışında kullanılmasını doğru bulmuyorum.
Örneğe göre yaparsanız işi uzatmış oluyorsunuz.

 

[byfika]

Sayın Dalgalıkur,
Öneriniz için teşekkürler. Problemin çıktığı bölüm imagelerde . İmege1 deki resim textbox1 (veri1) e girilen veriye göre değişecek, image2 ve image3 sabit olacak.
2. mesajınızdaki olayı aşağıdaki kodlarla uyguladığımda image1 e textbox1 e göre resimi getiriyorum ve istediğim işlem oluyor, userform imege2 ve image3 yerleştirdiğim resimler sayfada sabit kalırsa problem çözülmüş olur. Sayfaya resimleri yerleştirdiğimde userformdan işlem yaptığımda image2 ve image3 ün sayfadaki karşılığında koyduğum resimler siliniyor. Kullandığım kodlar aşağıdaki gibi.

SAYFA KOD:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim res As String
Dim a As Shape
Dim D2 As Range
If Target = "" Or Target.Address <> "$F$8" Then Exit Sub
If Target.Count > 1 Then Exit Sub
Set D2 = Range("D2")
For Each a In Shapes
a.Delete
Next a
D2.ClearContents
res = ThisWorkbook.Path & "\_resimler\" & Target.Value & ".jpg"
If Dir(res) = "" Then
D2 = "RESİM YOK"
Else
With ActiveSheet.Pictures.Insert(res)
.Left = D2.Left
.Top = D2.Top
.Height = D2.Height
.Width = D2.Width
End With
End If
End Sub

USERFORM KODU :
Private Sub OptionButton1_Click()
With Worksheets("Sayfa1").PageSetup
.CenterHorizontally = True
.PrintArea = "$c$1:$N$12"
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Unload Me
ActiveWindow.SelectedSheets.PrintPreview
Worksheets("Sayfa1").PrintOut
End Sub

Private Sub TextBox1_Change()
Sheets("Sayfa1").Cells(8, 6).Value = TextBox1
End Sub

Sayfa kodunda image2 ve 3 ün karşılığı olan sabit resimler silinmemesi için nasıl bir değişiklik yapabilirim. Userform kodunda bir tane textbox olarak yazdım. Kodlarının devamını kendim yazabilirim. (Resim klasörü açılıp içine gönderdiğim örnek resim konulacak)
Bilgi için teşekkürler...

 

[Muzaffer Ali]

Dosyanız ekte.

 

[byfika]

Sayın Dalgalıkur,
Ne kadar teşekkür etsem azdır. Bilgi ve elinize sağlık.
Teşekkürler...
Saygılarımla...

 

[Muzaffer Ali]

Rica ederim iyi çalışmalar.