Sağol. This time, action must speak louder than words...

Mesela programda bissürü yazı var. Adam da ekran grüntüsünü ya da ne biliyim işte programın grüntüsünü ya da yazıları print etcek. Mümkün mü? This time, action must speak louder than words...

Mümkün :) Zimbabwe

Option Explicit Private Declare Function SendMessage Lib "user32. dll" Alias _ "SendMessageA" As Long Private Const WM_PAINT = &HF Private Const WM_PRINT = &H317 Private Const PRF_CLIENT = &H4& Private Const PRF_CHILDREN = &H10& Private Const PRF_OWNED = &H20& Public Sub PrintPictureBox(Box As PictureBox, _ Optional X As Single = 0, _ Optional Y As Single = 0) Dim rv As Long Dim ar As Boolean On Error GoTo Exit_Sub With Box ar = . AutoRedraw. AutoRedraw = True Printer. Print rv = SendMessage(. hwnd, WM_PAINT, . hDC, 0) rv = SendMessage . Picture = . Image Printer. PaintPicture. Picture, X, Y Printer. EndDoc Box. Line (0, 0)- , . BackColor, BF 'Restore ReDraw. AutoRedraw = ar End With Exit_Sub: If Err. Number Then MsgBox Err. Description, vbOKOnly, "Printer Hatası!" End Sub bunları load forma yaz bide yazdır butonu için buton ekle içine bunları yaz Private Sub Command1_Click PrintPictureBox Picture1, 1000, 1000 End Sub ve bittii Zimbabwe