如何设置成A3模式打印?

maibao 2003-04-29 11:08:46
不知为什么打印不了a3的图片,设置不到A3模式,只能在A4状态下打印
在form1里的代码如下:
Imports System.Drawing.Printing
Imports System.Drawing.Image
Public Class Form1
Inherits System.Windows.Forms.Form


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim pd As New PrintDocument()
Dim pkCustomSize1 As PaperSize = New PaperSize("A3", 1000, 1000)

pd.DefaultPageSettings.PaperSize = pkCustomSize1
pd.DefaultPageSettings.PaperSize.PaperName = "A3"

AddHandler pd.PrintPage, AddressOf Me.pd_PrintPage
pd.Print()
End Sub
Private Sub pd_PrintPage(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
Dim newimage As Image = Image.FromFile("I:\public\A3.jpg")'a3的图片
Dim ulCorner As New Point(0, 0)
ev.Graphics.DrawImage(newimage, ulCorner)

End Sub


End Class
...全文
241 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
maibao 2003-04-30
  • 打赏
  • 举报
回复
genny,感谢你的帮助,这样是可以打印出了,不过如果是横着打的话,那么图的最右边却打不出来,不知为什么.
genny 2003-04-30
  • 打赏
  • 举报
回复
使用pageSetupDialog来试试
Dim psd As New PageSetupDialog()

If psd.ShowDialog = DialogResult.OK Then
pdoc.DefaultPageSettings = psd.PageSettings
End If
maibao 2003-04-30
  • 打赏
  • 举报
回复
szch,谢谢你的回答,是a3打印机,用acdsee能打出来.所以我想不是打印机的问题.
szch 2003-04-30
  • 打赏
  • 举报
回复
打印机支持A3的纸吗?
先检查一下打印机的设置,
其它的应用程序是否能打印A3的纸

16,721

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧