But i didn't found great docs or samples, which simply explains what is needed to write a printer driver. Delphi for php download. Samples of WinDDK (tty, oemui) are too much complex, and i don't understand half of source code. Drivers hp pavilion dv1000 xp sp3.
![]()
Below is the sample code to print labels from tsc label printer. May I know is there any oterh alternative that we can print to it at a more common way (not using the DLL)? I tried the printer.print feature, but seems like it's not helping. Please advice. Thanks in advance. = Private Declare Sub openport Lib 'c:windowssystemtsclib.dll' ( ByVal PrinterName as String) Private Declare Sub closeport Lib 'c:windowssystemtsclib.dll' () Private Declare Sub sendcommand Lib 'c:windowssystemtsclib.dll' ( _ ByVal command As String) ![]() Private Declare Sub setup Lib 'c:windowssystemtsclib.dll' ( _ ByVal LabelWidth As String, _ ByVal LabelHeight As String, _ ByVal Speed As String, _ Clever Code Ttp-342 Printer DriversByVal Density As String, _ ByVal Sensor As String, _ ByVal Vertical As String, _ ByVal Offset As String) Private Declare Sub downloadpcx Lib 'c:windowssystemtsclib.dll' ( _ ByVal Filename As String, _ ByVal ImageName As String) Private Declare Sub barcode Lib 'c:windowssystemtsclib.dll' ( _ ByVal X As String, _ ByVal Y As String, _ ByVal CodeType As String, _ ByVal Height As String, _ ByVal Readable As String, _ ByVal rotation As String, _ ByVal Narrow As String, _ ByVal Wide As String, _ ByVal Code As String) Private Declare Sub printerfont Lib 'c:windowssystemtsclib.dll' ( _ ByVal X As String, _ ByVal Y As String, _ ByVal FontName As String, _ ByVal rotation As String, _ ByVal Xmul As String, _ ByVal Ymul As String, _ ByVal Content As String) Private Declare Sub clearbuffer Lib 'c:windowssystemtsclib.dll' () Private Declare Sub printlabel Lib 'c:windowssystemtsclib.dll' ( _ ByVal NumberOfSet As String, _ ByVal NumberOfCopy As String) Private Declare Sub formfeed Lib 'c:windowssystemtsclib.dll' () Private Declare Sub nobackfeed Lib 'c:windowssystemtsclib.dll' () Private Declare Sub windowsfont Lib 'c:windowssystemtsclib.dll' ( _ ByVal X As Integer, _ ByVal Y As Integer, _ ByVal fontheight As Integer, _ ByVal rotation As Integer, _ ByVal fontstyle As Integer, _ ByVal fontunderline As Integer, _ ByVal FaceName As String, _ ByVal TextContent As String) Private Sub Command1_Click() Call openport(“TSC CLEVER TTP-243”) ‘Call openport(“serverTTP243”) Call setup('100', '100', '3', '10', '0', '0', '0') Call clearbuffer Call printerfont('10', '10', '4', '0', '1', '1', 'TEST PRINTOUT') ![]() Call sendcommand('BAR 400,200,300,100') Call sendcommand('BOX 10,300,300,300,5') Call windowsfont(10, 10, 80,0,2, 0, 'arial', 'Arial font 80 pt') Call printlabel('1', '2') Call closeport End Sub Comments are closed.
|
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |