#1
|
|||
|
|||
printing in windows with dos speed???
pals...
i m developing an acc soft, 4 my office,,, in vb + accesss and needed 2 know if there is a way i can print with the dos speed by vb coding.... want 2 use dot matrix printer 4 printing,,,,, and as every1 knows, dos prints very fast on dotmatrix compared 2 windows,, so is there a way, i can print with the same speed staying in windows,,, using vb... help needed thanx TDW {RES} |
#2
|
|||
|
|||
mmh...
Are you handling printer using WinApi? If not, start using them. Also, set its datatype to RAW. And use api like WritePrinter to do the job. Also, remember you need to find the right escape sequences for your printers. More, if I remember well, the OS will send anyway a bunch of escape commands to the printer, and you cannot avoid it. |
#3
|
||||
|
||||
many of matrix printers are very slove in winxp, because they use the color driver or high resolution printing you can decrease them manually or monitor them and apply them on a other PC, you can also use CVS Output but you will lose the drawing tables also you can use Seagate's Crystal Report
|
#4
|
|||
|
|||
@maximus,,,
pal,,, will that help me in speed printing... or will it take the same windows printing time cause i dont need any hifi printing, just normal text and straight lines.... 2 generate bills,,thats it..... sop it should b fast.... and will crystal report print b fast..or slow?? thanx TDw {RES} |
#5
|
|||
|
|||
Dos Print
There are many ways to print Dos Speed In windows
1. Use Print function with Draft font to print. 2. Design Reports in Draft font 3. send print to lpt direct. and many more |
#6
|
|||
|
|||
also try to print into generic / text only printer
|
#7
|
|||
|
|||
do you understand Delphi Code? If so, google for ZReport (or ZaReport, forgot which one).
|
#8
|
|||
|
|||
try this code
if you need use chr(27).....CHR(18) Code:
Public Sub Prinbt_File(Txt$, PrnName$) Dim DI As DOC_INFO_1, buffer() As Byte, Written&, hPrn& Dim FinalText$, Addline$, Resp& Dim Pd As PRINTER_DEFAULTS DI.pDocName = "Relatório" DI.pOutputFile = vbNullString DI.pDatatype = "RAW" With Pd .pDatatype = 0& .pDevMode = 0& .DesiredAccess = PRINTER_ALL_ACCESS End With ' open Resp = OpenPrinter(PrnName, hPrn, Pd) Resp = StartDocPrinter(hPrn, 1, DI) Resp = StartPagePrinter(hPrn) ' print Open Txt For Input As #1 Do While Not EOF(1) Line Input #1, Addline buffer = FinalText + vbCrLf Call WritePrinter(hPrn, buffer(1), UBound(buffer), Written) Loop Close #1 ' Finish EndPagePrinter (hPrn) EndDocPrinter (hPrn) ClosePrinter (hPrn) End Sub |
#9
|
|||
|
|||
hxxp://planet-source-code.com
site has many and more samples on dos printing using visual basic, access and crsytal report. |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Printing tuts at work | crkelbery | General Discussion | 3 | 03-04-2005 08:49 |