假设打印一个按钮 dim i as integer dim j as integer dim i2 as integer dim j2 as integer '保留当前位置 i=command1.top j=command1.left i2=form1.height j2=form1.width command1.top=0 command1.left=0 form1.height=command1.height form1.width=command1.width form1.printform form1.height=i2 form1.width=j2 command1.top=i command1.left=j 乱写的,没有试,不知道行不行。
dim i as integer
dim j as integer
dim i2 as integer
dim j2 as integer
'保留当前位置
i=command1.top
j=command1.left
i2=form1.height
j2=form1.width
command1.top=0
command1.left=0
form1.height=command1.height
form1.width=command1.width
form1.printform
form1.height=i2
form1.width=j2
command1.top=i
command1.left=j
乱写的,没有试,不知道行不行。