 |
| |
VB.NET ช่วยดูโค้ด Print Preview ให้หน่อยค่ะ เรื่องการจัดขอบกระดาษ |
| |
 |
|
|
 |
 |
|
คือว่าใช้โค้ดนี้ในการสั่ง Print Preview
Code (VB.NET)
Private Sub btnPrintpreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrintpreview.Click
CaptureScreen()
PrintPreviewDialog1.Document = PrintDocument1
PrintPreviewDialog1.ShowDialog()
End Sub
Private Sub CaptureScreen()
Dim mygraphics As Graphics = Me.CreateGraphics() ' ---- เปลี่ยนเป็น GroupBox1.CreateGraphics()
Dim s As Size = Me.Size ' ---- เปลี่ยนเป็น GroupBox1.Size
memoryImage = New Bitmap(s.Width, s.Height, mygraphics)
Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage)
Dim dc1 As IntPtr = mygraphics.GetHdc
Dim dc2 As IntPtr = memoryGraphics.GetHdc
BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, _
Me.ClientRectangle.Height, dc1, 0, 0, 13369376)
mygraphics.ReleaseHdc(dc1)
memoryGraphics.ReleaseHdc(dc2)
End Sub
พอกดปุ่มคำสั่ง มันได้หน้าตาแบบนี้อ่าค่ะ มันไม่เต็มหน้า มันได้ครึ่งเดียว จะทำไงให้มัน capture หน้าจอตรงกลางหรือว่าตั้งค่าระยะเองอ่าค่ะ
Tag : .NET, Ms SQL Server 2005, Crystal Report, Win (Windows App), VB.NET, VS 2010 (.NET 4.x)
|
|
|
 |
 |
 |
 |
| Date :
2011-03-18 14:45:22 |
By :
zeenanz |
View :
10626 |
Reply :
8 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
เต็มหน้า จอ คอมเลยหรอครับหรือว่ายังไง
|
| |
|
|
| |
| Date :
2011-03-18 14:57:11 |
By :
kaimuk |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ไม่ต้องเต็มหน้าจอคอมอ่ะค่ะ แค่แบบว่าให้มันขยับไปกลางๆหน้าอ่าค่ะ เพราะขอบซ้ายมันตกอ่าค่ะ
ได้คุณ KaimuK มาช่วยทุกทีเลย
|
| |
|
|
| |
| Date :
2011-03-18 15:14:56 |
By :
zeenanz |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
กำหนดระยะขอบกระดาษให้ได้ประมาณนี้อ่าค่ะ
|
ประวัติการแก้ไข
2011-03-18 15:17:58
| |
|
|
| |
| Date :
2011-03-18 15:16:27 |
By :
zeenanz |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
BitBlt(dc2, 0, 0, Me.Width,Me.Height, dc1, 0, 0, 13369376) ทดลองแบบนี้ดูครับผมก็ไม่แน่ใจเหมือนกัน
|
| |
|
|
| |
| Date :
2011-03-18 15:26:37 |
By :
kaimuk |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ยังเหมือนเดิมเลยค่ะ
|
| |
|
|
| |
| Date :
2011-03-21 13:20:08 |
By :
zeenanz |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code (VB.NET)
Private Sub btnPrintpreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrintpreview.Click
CaptureScreen()
PrintDocument1.DefaultPageSettings.PaperSize = New PaperSize("Custom", Me.Height, Me.Width)
PrintPreviewDialog1.Document = PrintDocument1
PrintPreviewDialog1.ShowDialog()
End Sub
|
| |
|
|
| |
| Date :
2011-03-21 16:51:13 |
By :
kaimuk |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ไม่ทราบว่าพอจะมี โค้ด การรายงานของ vb 2008 และควรจะลงโปรแกมตัวนัยที่พอจะช่วยในการออกหน้ารายงานของระบบไดบ้างคะ
|
| |
|
|
| |
| Date :
2013-02-19 14:47:52 |
By :
ya |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
อยากได้โค้ด ที่ใช้ปริ้นกระดาษ
อ่ะค่ะ
พอจะมีมั้ยค่ะ ของ .Net
อ่ะค่ะ ช่วยหน่อยนะค่ะ
|
| |
|
|
| |
| Date :
2013-12-21 15:14:48 |
By :
naruwan |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
