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}

[Maximus]

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.

[Unforgiv3N]

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

@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}

[appsuse]

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

[infern0]

also try to print into generic / text only printer

[Maximus]

do you understand Delphi Code? If so, google for ZReport (or ZaReport, forgot which one).

try this code

if you need use chr(27).....CHR(18)

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

[appsuse]

hxxp://planet-source-code.com
site has many and more samples on dos printing using visual basic, access and crsytal report.