Send a preformated file to any printer
Q. How can I send a preformated file to a printer "as is". If I use Printer.Print then things like ESC get converted to a box or whatever chr$(27) is in the current font. A.I'm using following code to send AutoCAD .plt-files to my printer, and it works ok for me. "Soren Staun Jorgensen"
AI
สรุปโดย AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
ซอร์สโค้ด
Public Sub SendFileToPrinter()
Dim FileName As String
Dim s As Long
Dim i As Integer
For i = 0 To frmMain.List.ListCount - 1
If frmMain.List.Selected(i) Then
FileName = CurFolder & "\" & frmFileList.File.List(i)
s = SendToPort(FileName, CurPrnPort, vbNull)
frmMain.List.Selected(i) = False
End If
Next i
End Sub
Public Function SendToPort(sFileName$, sPortName$, lPltFailed&)
Dim s As Long
s = CopyFile(sFileName, sPortName, lPltFailed)
End Function
ความคิดเห็นดั้งเดิม (3)
กู้คืนจาก Wayback Machine