 |
| |
สั่ง Print ข้อมูลที่อยู่ใน ตาราง DataGridView ทำยังไงครับ VB 2010+Accress2007 ทำโปรเจคช่วยหน่อยนะครับ ส่งอีก 2วัน |
| |
 |
|
|
 |
 |
|
ขอราายละเอียด อีก หน่อย เช่น หน้าโปรแกรม
|
 |
 |
 |
 |
| Date :
2012-02-17 09:58:44 |
By :
meneger |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
คือผมทำ โปรเเกรม ตัดจำนวน สต๊อคสินค้า
พอทำรายการตัด จำนวนเสร็จ รายการที่ทำจะ เก้บลง ฐานข้อมุล Access 2007 เเล้ว ดึงออกมา Show ในตาราง DataGridView
เเละผมต้องการ ปริ้น ข้อมุลที่อยู่ ใน DataGridView อะครับ
|
| |
|
|
| |
| Date :
2012-02-17 10:14:37 |
By :
พานุ |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
นี้ครับโปรเเกรม
|
| |
|
|
| |
| Date :
2012-02-17 10:15:57 |
By :
พานุ |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ถ้าคุณใช้ crystal report นะ
Tools ที่ใช้ crystal report=ออกแบบรูปแบบรายงาน
crystal reportveiwer = ดูตัวอย่างรายงาน
ผมอธิบายไม่ค่อยดีนะ ยังไงก็ลองดูจากตัวอย่างพวกนี้ดู ผมก็ฟังไม่ค่อยรู้เรื่องเท่าไหร่ แต่ดูภาพเอา อิอิ
http://www.youtube.com/watch?v=_CsgT4kVHPU
|
| |
|
|
| |
| Date :
2012-02-17 11:10:37 |
By :
meneger |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ผมใช้ VB 2010 อะครับ
crystal report
มันไม่มีอะครับ
ผมโหลด มาลงเเล้ว เเต่ไม่สามารถใช่กับ accress 2007 ได้อะครับ
|
| |
|
|
| |
| Date :
2012-02-17 11:22:34 |
By :
พานุ |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
 ตอบความคิดเห็นที่ : 5 เขียนโดย : พานุ เมื่อวันที่ 2012-02-17 11:22:34
รายละเอียดของการตอบ ::
ก่อนอื่น..ต้องถามก่อนว่า คุณ ประกาศ โค้ดในการ ปริ้น หรือยัง ...ถ้ายังให้เขียนก่อน ใช้โค้ด
Code (VB.NET)
Imports System.Drawing.Printing ก่อน พอพูดถึงเรื่องการจะดึงข้อมูล มาแสดงใน จะต้องใช้ โค้ดตัวนี้ค่ะ
Next
MessageBox.Show("บันทึกรายการขายเรียบร้อยแล้ว", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
If IsInstallprinter() = True Then 'ถ้ามีการติดตั้งเครื่องพิพม์แล้ว
If prdig.ShowDialog = Windows.Forms.DialogResult.OK Then
prdoc.Print()
End If
MessageBox.Show("กรุณาติดตั้งเครื่อง print ก่อนสั่งพิมพ์เอกสาร", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
clearalldata()
Isvbook.Items.Clear()
txtEmID.Focus()
End If
End Sub
ส่วน โค้ด เครื่องพิมพืนั้น ก็น่าจะใช้โค้ด ตัวนี้น่ะคะ
Code (VB.NET)
Private Sub AnyString(ByVal g As Graphics, ByVal printString As String, ByVal xPos As Integer, ByVal yPos As Integer)
Dim anypoint As New PointF(xPos, yPos)
'วาดข้อความตามตัวแปรที่ส่งมา
g.DrawString(printString, usefont, Brushes.Black, anypoint)
End Sub
Private Function isinstallPrinter() As Boolean
'ฟังก์ชันทำหน้าที่ตรวจสอบว่ามีเครื่องพิมพ์ติดตั้งอยู่หรือไม่
isinstallPrinter = False
'ถ้าไม่มีการติดตั้ง
If prdoc.PrinterSettings.PrinterName = "<no default printer>" Then
isinstallPrinter = False
Else
isinstallPrinter = True
End If
End Function
น่าจะใช้น่ะค่ะ...พอดี ทำโปรเจค วิชา VB 2010 พอดีคะ ที่ มหาลัย ธนบุรี วิทยาเขตลำพูน
จะ ถูกไมาถู..ก็อย่าเพิ่งว่ากันน่ะค่ะ เพิ่งเขียนเหมือนกัน
|
| |
|
|
| |
| Date :
2012-07-05 22:37:52 |
By :
นศ ม.ธนบุรีลำพูน |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
