如何在面板上复制打印件并将其放置在vb.net中的原始打印件旁边

时间:2019-01-30 00:54:13

标签: vb.net vb.net-2010

我有一个输出,可以打印出一个面板并将其放置在纸张的左侧,该纸张仅占一半。我想对其进行复制,然后将其放置在其他打印输出旁边(请参见下面的图片“此处”)。我以前没有尝试过打印,这里使用的代码全部来自网络。我想知道如何去做。

                  HELP ME PLLEEEEASE!!  T_T

我的打印代码是这样:

bmp = New Bitmap(Panel1.DisplayRectangle.Width, Panel1.DisplayRectangle.Height)
Dim G As Graphics = Graphics.FromImage(bmp)
Dim Hdc As IntPtr = G.GetHdc()
SendMessage(Panel1.Handle, WM_PRINT, Hdc, DrawingOptions.PRF_OWNED Or DrawingOptions.PRF_CHILDREN Or DrawingOptions.PRF_CLIENT Or DrawingOptions.PRF_NONCLIENT)

G.ReleaseHdc(Hdc)
G.Dispose()
PrintPreviewDialog1.Document = PrintDocument1
PrintPreviewDialog1.ShowDialog()

在PrintDocument1_PrintPage中为:

e.Graphics.DrawImage(bmp, 0, 0)

Print side by side

0 个答案:

没有答案