大虾帮忙！！！！！！！！！！

Question

1. 可以在窗体的keyDown事件中当keycode=114时call 函数
2.是papersize属性不是papertype属性。
把18*11英寸转换为厘米在Papersieze属性中看看那个相同或差不多就可以

Answer 1

1：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
select case keycode
case vbKeyF1
      调用函数
end select
end sub2：你可以直接用
Printer.Width = 纸的宽度
printer.Height=纸的高度
这样更好定义！
直接用printer对象作打印功能！

Answer 2

1：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
select case keycode
case vbKeyF1
      调用函数
end select
end sub2：你可以直接用
Printer.Width = 纸的宽度
printer.Height=纸的高度
这样更好定义！
直接用printer对象作打印功能！

Answer 3

1：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
select case keycode
case vbKeyF3
调用函数
end select 
end sub
2：
直接用printer对象打印更方便！
        Printer.Width = 9900
        Printer.Height = 8505
        Printer.ScaleMode = vbCentimeters
        Printer.Font = "宋体"
        Printer.ScaleTop = 0
        Printer.ScaleLeft = -0.5
        Printer.FontSize = "11"
        
        Printer.CurrentX = 14
        Printer.CurrentY = 1.8
        Printer.Print “打印内容”

Answer 4

忘了告诉你最后还要一句
printer.enddoc

Answer 5

忘了！最后还要补上一句：
printer.EndDoc

Answer 6

1、form_kedown根本就没有被触发
2、一定要用activereport，说明上是说
.printer.papersize=256
.printer.paperwidth=1111
.printer.paperheight=111
就可以了，怎么就不起作用？

Answer 7

1、form_kedown根本就没有被触发
2、一定要用activereport，说明上是说
.printer.papersize=256
.printer.paperwidth=1111
.printer.paperheight=111
就可以了，怎么就不起作用？