RE: printing without formfeed

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

RE: printing without formfeed

Logged in as: Guest

arrSession:exec spGetSession 2,2,40986

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> RE: printing without formfeed
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: << < prev 1 [2]

Message

<< Older Topic Newer Topic >>

RE: printing without formfeed - 12/18/2006 7:34:52 PM

ehvbs

Posts: 2064
Score: 50
Joined: 6/22/2005
From: Germany
Status: offline

Hi KALEL,

sorry to say: the best I can come up with is another test program. I used
your command line script:

Option Explicit
 
 ' Include Fake (not needed if avbScriptPrinter is installed)
 ' disabled, because KALEL doen't need it; kept, because I'll have to actiivate it 
 ' ExecuteGlobal CreateObject( "Scripting.FileSystemObject" ).OpenTextFile( ".\axprintfake.vbs" ).ReadAll
 
 Dim PrinterObj
 Dim Printer
 
 On Error Resume Next
 Set PrinterObj = CreateObject( "avbScriptPrinter.PrinterObj" )
 On Error Goto 0
 If IsEmpty( PrinterObj ) Then Set PrinterObj = New cFakePrinter
 Set Printer = PrinterObj.Printer
 
 ' Init; todo: set margins gloally
 With Printer
    .ScaleMode = 7 ' Zentimeter
    .CurrentX  = 5
 End With
 
 Dim nLine : nLine = 0
 
 Dim sMenu : sMenu = Join( Array(     _
      "1 = print line"                _
    , "2 = print line at y = 10"      _
    , "3 = NewPage"                   _
    , "4 = EndDoc"                    _
    , "A = End Program"               _
                         ), vbCrLf )
 Dim sInput
 
 Do ' Main loop
    sInput = Trim( InputBox( sMenu ) )
 
    With Printer
       Select Case sInput
          Case "", "A", "a"
             Exit Do
          Case "1"
             PrinterObj.PrintText "This is Line " & nLine & " (" & Now & ") at y = " & .CurrentY
             nLine = nLine + 1
          Case "2"
             .CurrentY = 10
             PrinterObj.PrintText "This is Line " & nLine & " (" & Now & ") at y = 10"
             nLine = nLine + 1
          Case "3"
             .NewPage
          Case "4"
             .EndDoc
       End Select
    End With
 
 Loop
 
 WScript.Quit 0

I separated "print text at current position" and "print text at position 10" and made sure
that printing at the same position again can't slip thru undetected. The option 3 is my
second shot at the "hey printer, I want a new page in this document" functionality.

My prediction: Using option 1 a few times will give you some nice lines on one sheet,
even on a line printer. Option 2 after any printing will cause overstrike on a page printer,
but a formfeed on a lineprinter.

If I err again, I'd need some help/fresh ideas (that's an SOS, dear members of this forum)
to go on.

ehvbs

(in reply to KALEL)

Post #: 21

RE: printing without formfeed - 12/23/2006 6:07:56 AM

KALEL

Posts: 12
Score: 0
Joined: 12/14/2006
From: Germany, NRW
Status: offline

hay

i have test your script.
it will do the same what my last posted script do. :(
the print will started every one after i send enddoc or leave the script.

i thing i have no chance, to get the function i want have.

thank you for your help

---------------------------------
for my extern app, i thing, i will write me a little app in qb45.
1. i write my lines which i will print in an *.txt with vbscript
2. after this, i will start this extern prog which will print the file without formfeed.
this will funktion.
not the best result, but better than one side for 5 lines. ;)

mfg
kalel

(in reply to ehvbs)

Post #: 22

RE: printing without formfeed - 12/23/2006 8:42:55 AM

ehvbs

Posts: 2064
Score: 50
Joined: 6/22/2005
From: Germany
Status: offline

Hi KALEL,

your

the print will started every one after i send enddoc or leave the script.

does not surprise me: sending .EndDoc or terminating the script are two methods
to force a formfeed on any printer. Careful testing using the (1) option would be
interesting to see whether "just print a line" is causing formfeeds.

I wish you luck with your plan to start (and terminate) an external QB program
to print your lines of text. I'm very interested in the results and would be grateful
if you could keep me informed.

Frohe Weihnachten!

ehvbs

(in reply to KALEL)

Post #: 23

RE: printing without formfeed - 12/23/2006 7:12:17 PM

KALEL

Posts: 12
Score: 0
Joined: 12/14/2006
From: Germany, NRW
Status: offline

hello

when i'm using (1) the folowing will happen.
in my printer spooler i can see a job but this job will have the status N/V.

the print will start when i send enddoc or leave the script.

when i press more then one (1) i will get more then one line.
but the print will not start directly. starts after enddoc or scriptend.

Frohe Weihnachten.

mfg
kalel

(in reply to ehvbs)