| 9Mcode comment |
 |
|
|
|
| |
|
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
|
กระทู้ #2334 [Vb] (จาก IP: 61.7.182.243)
ขอโค้ดเกี่ยวกับ การปริ้นใบเสร็จ vb6
คือว่าต้องการที่จะเขียนคำสั่งปริ้นใบเสร็จอ่ะ
โดยรูปแบบจะเป็นแบบในช่องสี่เหลี่ยม
และจะเอาส่วนตรงนี้แหละมาปริ้น โดยการดึงข้อมูลจากหน้าฟอร์มเลย
จะเขียนอย่างไรดี
เพราะไม่มีฐานข้อมูลเลยทำ datareport ไม่ได้
ช่วยทีนะ
|
| จากคุณ
:
โจ / family_n@hotmail.com [2008-10-12 11:14:55]
|
|
ความคิดเห็น #27171 (จาก IP: 58.8.186.49)
| http://www.codeproject.com/KB/vb/MCLFormPrintControl.aspx |
| จากคุณ
:
sup98 [2008-10-12 13:20:13]
|
|
ความคิดเห็น #27172 (จาก IP: 61.7.182.243)
คือว่าไม่ค่อยเข้าใจเท่าไหร่
ช่วยเอาแบบง่ายๆได้ไหม |
| จากคุณ
:
โจ [2008-10-12 13:37:20]
|
|
ความคิดเห็น #27188 (จาก IP: 58.137.49.242)
Dim rowheight As Integer
Dim yposition As Integer
Dim m As Integer
Dim k As Integer
Dim numa As Integer
Dim b As Integer
Dim j As Integer
Dim rowheight2 As Integer
yposition = 1000
On Error GoTo lineprint
With Printer
.FontName = "ms sans serif"
.FontSize = 10
rowheight = .TextHeight("Report") + 20
rowheight2 = .TextHeight("Report") + 20
.FontSize = 11
.CurrentX = 5000
.CurrentY = yposition
Printer.Print "ºÃÔÉÑ· ºÕ.·Õ.âÍâµé¾ÒÃì· ¨Ó¡Ñ´"
.CurrentX = 3000
.CurrentY = yposition + (rowheight * 1)
Printer.Print "7 Á.5 ¶.ÈØ¢»ÃÐÂÙÃ¹ì µ.˹ͧµÓÅÖ§ Í.¾Ò¹·Í§ ¨.ªÅºØÃÕ 20160"
.CurrentX = 4500
.CurrentY = yposition + (rowheight * 2)
Printer.Print "ËÁÒÂàÅ¢â·ÃÈѾ·ì 04-1145688"
.FontSize = 10
.CurrentX = 7000
.CurrentY = yposition + (rowheight * 5)
Printer.Print "àÍ¡ÊÒÃÍÍ¡Çѹ·Õè :" & Date
.FontUnderline = True
.CurrentX = 500
.CurrentY = yposition + (rowheight * 7)
Printer.Print "ÃÒ§ҹ¾¹Ñ¡§Ò¹ÃѺà¢éÒ"
.FontUnderline = False
.FontBold = True
.FontUnderline = True
.CurrentX = 500
.CurrentY = yposition + (rowheight * 8)
Printer.Print "ÃËÑÊ :"
.FontBold = True
.FontUnderline = True
.CurrentX = 1200
.CurrentY = yposition + (rowheight * 8)
Printer.Print "ª×èÍ :"
.FontBold = True
.CurrentX = 2400
.CurrentY = yposition + (rowheight * 8)
Printer.Print "¹ÒÁÊ¡ØÅ :"
.FontBold = True
.CurrentX = 3800
.CurrentY = yposition + (rowheight * 8)
Printer.Print "µÓáË¹è§ :"
.FontBold = True
.CurrentX = 5300
.CurrentY = yposition + (rowheight * 8)
Printer.Print "á¼¹¡ :"
.FontBold = True
.CurrentX = 6800
.CurrentY = yposition + (rowheight * 8)
Printer.Print "½èÒ :"
.FontBold = True
.CurrentX = 8100
.CurrentY = yposition + (rowheight * 8)
Printer.Print "ÇѹàÃÔèÁ§Ò¹:"
.FontBold = False
.FontUnderline = False
k = 9
b = 2
For m = 1 To MSHFlexGrid1.Rows - 1
numa = numa + 1
If numa <= 45 Then 'ark
.CurrentX = 500
.CurrentY = yposition + (rowheight * k)
Printer.Print MSHFlexGrid1.TextMatrix(m, 0)
.CurrentX = 1200
.CurrentY = yposition + (rowheight * k)
Printer.Print MSHFlexGrid1.TextMatrix(m, 1)
.CurrentX = 2400
.CurrentY = yposition + (rowheight * k)
Printer.Print MSHFlexGrid1.TextMatrix(m, 2)
.CurrentX = 3800
.CurrentY = yposition + (rowheight * k)
Printer.Print MSHFlexGrid1.TextMatrix(m, 3)
.CurrentX = 5300
.CurrentY = yposition + (rowheight * k)
Printer.Print MSHFlexGrid1.TextMatrix(m, 4)
.CurrentX = 6800
.CurrentY = yposition + (rowheight * k)
Printer.Print MSHFlexGrid1.TextMatrix(m, 5)
.CurrentX = 8100
.CurrentY = yposition + (rowheight * k)
Printer.Print MSHFlexGrid1.TextMatrix(m, 6)
k = k + 1
ElseIf numa = 46 Then 'ark
.NewPage
'*****************************************************
.FontBold = True
.FontUnderline = True
.CurrentX = 500
.CurrentY = yposition + (rowheight2)
Printer.Print "ÃËÑÊ :"
.FontBold = True
.FontUnderline = True
.CurrentX = 1200
.CurrentY = yposition + (rowheight2)
Printer.Print "ª×èÍ :"
.FontBold = True
.CurrentX = 2400
.CurrentY = yposition + (rowheight2)
Printer.Print "¹ÒÁÊ¡ØÅ :"
.FontBold = True
.CurrentX = 3800
.CurrentY = yposition + (rowheight2)
Printer.Print "µÓáË¹è§ :"
.FontBold = True
.CurrentX = 5300
.CurrentY = yposition + (rowheight2)
Printer.Print "á¼¹¡ :"
.FontBold = True
.CurrentX = 6800
.CurrentY = yposition + (rowheight2)
Printer.Print "½èÒ :"
.FontBold = True
.CurrentX = 8100
.CurrentY = yposition + (rowheight2)
Printer.Print "ÇѹàÃÔèÁ§Ò¹:"
.FontBold = False
.FontUnderline = False
'*****************************************************
.CurrentX = 500
.CurrentY = yposition + (rowheight2 * b)
Printer.Print MSHFlexGrid1.TextMatrix(m, 0)
.CurrentX = 1200
.CurrentY = yposition + (rowheight2 * b)
Printer.Print MSHFlexGrid1.TextMatrix(m, 1)
.CurrentX = 2400
.CurrentY = yposition + (rowheight2 * b)
Printer.Print MSHFlexGrid1.TextMatrix(m, 2)
.CurrentX = 3800
.CurrentY = yposition + (rowheight2 * b)
Printer.Print MSHFlexGrid1.TextMatrix(m, 3)
.CurrentX = 5300
.CurrentY = yposition + (rowheight2 * b)
Printer.Print MSHFlexGrid1.TextMatrix(m, 4)
.CurrentX = 6800
.CurrentY = yposition + (rowheight2 * b)
Printer.Print MSHFlexGrid1.TextMatrix(m, 5)
.CurrentX = 8100
.CurrentY = yposition + (rowheight2 * b)
Printer.Print MSHFlexGrid1.TextMatrix(m, 7)
b = b + 1
ElseIf numa > 46 Then 'ark
.CurrentX = 500
.CurrentY = yposition + (rowheight2 * b)
Printer.Print MSHFlexGrid1.TextMatrix(m, 0)
.CurrentX = 1200
.CurrentY = yposition + (rowheight2 * b)
Printer.Print MSHFlexGrid1.TextMatrix(m, 1)
.CurrentX = 2400
.CurrentY = yposition + (rowheight2 * b)
Printer.Print MSHFlexGrid1.TextMatrix(m, 2)
.CurrentX = 3800
.CurrentY = yposition + (rowheight2 * b)
Printer.Print MSHFlexGrid1.TextMatrix(m, 3)
.CurrentX = 5300
.CurrentY = yposition + (rowheight2 * b)
Printer.Print MSHFlexGrid1.TextMatrix(m, 4)
.CurrentX = 6800
.CurrentY = yposition + (rowheight2 * b)
Printer.Print MSHFlexGrid1.TextMatrix(m, 5)
.CurrentX = 8100
.CurrentY = yposition + (rowheight2 * b)
Printer.Print MSHFlexGrid1.TextMatrix(m, 6)
b = b + 1
End If
Label3.Caption = m
Next
If numa > 46 Then 'ark
.CurrentX = 6500
.CurrentY = yposition + ((rowheight2 * b) + rowheight2 * 2)
Printer.Print "ÃÇÁ¨Ó¹Ç¹¾¹Ñ¡§Ò¹ÃѺà¢éÒ"
.CurrentX = 9000
.CurrentY = yposition + ((rowheight2 * b) + rowheight2 * 2)
Printer.Print Label3.Caption
.CurrentX = 9500
.CurrentY = yposition + ((rowheight2 * b) + rowheight2 * 2)
Printer.Print "¤¹"
Else 'ark
.CurrentX = 6500
.CurrentY = yposition + ((rowheight * k) + rowheight * 2)
Printer.Print "ÃÇÁ¨Ó¹Ç¹¾¹Ñ¡§Ò¹ÃѺà¢éÒ"
.CurrentX = 9000
.CurrentY = yposition + ((rowheight * k) + rowheight * 2)
Printer.Print Label3.Caption
.CurrentX = 9500
.CurrentY = yposition + ((rowheight * k) + rowheight * 2)
Printer.Print "¤¹"
End If
.EndDoc
End With
Exit Sub
lineprint:
MsgBox "¡ÃسҵԴµÑé§à¤Ã×èͧ¾ÔÁ¾ì", vbOKOnly + vbInformation, "µÔ´µÑé§à¤Ã×èͧ¾ÔÁ¾ì" |
| จากคุณ
:
Anuwat / anuwat_fn@hotmail.com [2008-10-22 11:13:47]
|
|
|
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
| |
|
|
|
|
New Article
อัตราค่าโฆษณา
