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
ИИ-обзор: 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