您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)

关于在vb6里实现打印预览效果？想用picturebox来实现。

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

关于在vb6里实现打印预览效果？想用picturebox来实现。[已结贴,结贴人:nextmoon]

发表于：2007-09-26 15:54:13 楼主

我想在vb里实现打印预览的功能，就是听很多人说，用picturebox控件来实现，请问怎么样实现打印预览，我有查询报表，想先看打印预览，然后再打印。还要打印一定格式的聘书，请大家给我点意见。

发表于：2007-09-27 09:16:511楼得分:10

你这个用vb自带的报表工具datareport做不是很简单吗？

发表于：2007-09-28 10:44:082楼得分:0

'打印函数
public function dy（xx as variant, yy as variant, fnt as variant, txt as variant)
printer.currentx = xx
printer.currenty = yy
printer.fontsize = fnt
printer.print txt '
end function
'打印
private sub cmdprint_click（)
fnt = 8
txt = "染色外观m率曲线图 "
xx = 1800: yy = 200
dd = dy（xx, yy, fnt, txt)
printer.enddoc ' 打印完成。
end sub
'显示函数
public function xs（x as variant, y as variant, fnt1 as variant, txt1 as variant)
picture1.currentx = xx
picture1.currenty = yy
picture1.fontsize = fnt
picture1.print txt '
end function
'显示
private sub cmdxs_click（)
fnt1 = 8
txt1 = "染色外观m率曲线图 "
x = 1800: y = 200
dx = xs（xx, yy, fnt, txt)
end sub

发表于：2007-09-28 12:43:193楼得分:0

to zdingyun（) ,你这个好象实现不行的。

发表于：2007-09-28 13:49:224楼得分:0

更正：
'显示函数
public function xs（x as variant, y as variant, fnt1 as variant, txt1 as variant)
picture1.currentx = x
picture1.currenty = y
picture1.fontsize = fnt
picture1.print txt '
end function
'显示
private sub cmdxs_click（)
fnt1 = 8
txt1 = "染色外观m率曲线图 "
x = 1800: y = 200
dx = xs（x, y, fnt, txt)
end sub

发表于：2007-09-28 13:56:085楼得分:0

option explicit
dim fnt1 as integer
dim txt1 as string
dim x as integer
dim y as integer
dim dx as variant
dim fnt as integer
dim txt as string
dim xx as integer
dim yy as integer
dim dd as variant
'显示函数
public function xs（x as variant, y as variant, fnt1 as variant, txt1 as variant)
picture1.currentx = x
picture1.currenty = y
picture1.fontsize = fnt1
picture1.print txt1 '
end function
'显示
private sub cmdxs_click（)
fnt1 = 8
txt1 = "染色外观m率曲线图 "
x = 1800: y = 200
dx = xs（x, y, fnt1, txt1)
end sub

'打印函数
public function dy（xx as variant, yy as variant, fnt as variant, txt as variant)
printer.currentx = xx
printer.currenty = yy
printer.fontsize = fnt
printer.print txt '
end function
'打印
private sub cmdprint_click（)
fnt = 8
txt = "染色外观m率曲线图 "
xx = 1800: yy = 200
dd = dy（xx, yy, fnt, txt)
printer.enddoc ' 打印完成。
end sub

发表于：2007-09-29 10:53:486楼得分:10

可以的话,你可以一条一条的写,但是这个代码量很大.
我做过的很多程序就是客户有点"百般刁难"的只能自己去设计这个打印预览以及打印

发表于：2008-01-08 15:11:417楼得分:0

但是picturebox没法实现横向打印的预览啊

其他资讯