把文件输出到打印机100分

Question

用什么命令，保证好用！

Answer 1

什么文件？word 文件
    Dim WordTemps   As New Word.Application
      WordTemps.PrintOut

Answer 2

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongShellExecute Me.hwnd, "Print", "D:\test.doc", vbNullString, vbNullString, 0

Answer 3

要打印什么文件?如果是office的那就定义对象,直接就能打印

Answer 4

[FAXINFO]
PRESERVE=0
FAXCOUNT=1
FAX_1=84754873[FAX_01]
TITLE=SFDFSDF
SENDER=SDFDDDDDDDD
SENDTIME=2004/01/01 20:30
INFOPAGE=SAMPLE1.FRM
TO.NAME=DDD
TO.TEL=84754873
TO.FAX=84754873
FROM.NAME=DFDF
FROM.POST=FSDFDFSDF
FROM.COMPANY=DDDDDDDDDDDDDD
FROM.TEL=11111111
FROM.FAX=84754871
MEMO=SSSSSSSSSSSSSSSSSSSSSSSSSSSD
KEYWORD=SFDSDFSDFSDFSDFDS
to leolan
这个是文件内容
vb发送打印机怎么做
同文件中打印有区别吗？

Answer 5

Private Sub Command1_Click()
   Printer.CurrentX = xx  'x軸
   Printer.CurrentY = yy  'y軸   Printer.Print "asdfasdfasdfasd"
   Printer.EndDocEnd Sub

Answer 6

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1Private Sub Command1_Click()
    ShellExecute Me.hwnd, "print", "c:\boot.ini", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

Answer 7

c:\boot.ini替换为你想打印的文件路径及名称