如何设置成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
...全文
174 4 打赏 收藏 举报
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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的纸
  • 打赏
  • 举报
回复
发帖
VB

1.6w+

社区成员

VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
帖子事件
创建了帖子
2003-04-29 11:08
社区公告
暂无公告