| |
 |
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
|
กระทู้ #3457 [Vb] (จาก IP: 180.180.233.246)
ใครพอรู้มั่งครับ โค้ดพิมพ์ของ VB6
คือผมต้องการ จะปริ้นหน้า form แล้วก็สามารถตั้งค่าของปริ้นเตอร์
ว่าให้เซฟเป็นไฟล์ของอะไร
โค้ดที่ผมพิมพ์
PrintForm ปริ้นออกแต่ว่าไม่สามารถเซฟไฟล์ปริ้นไว้ในเครื่องได้ครับ
( ใครที่พอรู้ผมรบกวนน่อยนะครับ บอกแนวทางก็ได้ครับ)
ขอบคุณครับ
|
| จากคุณ
:
ธวัชชัย สีมาโลฤทธิ์ / tawatchai16@msn.com [2013-10-15 15:01:40]
|
|
ความคิดเห็น #28942 (จาก IP: 103.5.27.218)
ไปเจอโค้ด save ไปเป็นรูปภาพ
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Private Const VK_SNAPSHOT = &H2C
Private Function SaveScreen(ByVal theFile As String) As Boolean
'To get the Entire Screen
'Call keybd_event(vbKeySnapshot, 1, 0, 0) 'from what you say you don't want this, but I give it in
'case you may want it sometime
'To get the Active Window
Call keybd_event(vbKeySnapshot, 0, 0, 0) 'this sounds like it is what you are after
SavePicture Clipboard.GetData(vbCFBitmap), theFile
SaveScreen = True
End Function
Private Sub Command1_Click()
Call SaveScreen("C:\camoore\Form1.bmp")
End Sub |
| จากคุณ
:
maddog [2013-10-19 16:47:55]
|
|
|
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
| |
|
|
New Article
อัตราค่าโฆษณา
