[VB] Printervolgorde + PrinterLade instellen

[tim-w]

Ik maak een programma met VB 6,
dat een plain text document gaat (moet gaan) afdrukken naar Lade 4 van een Xerox DocumentCentre 470 ST.

De bedoeling is ook dat de pagina's 4x afgedrukt worden,
in volgorde 1-1-1-1-2-2-2-2-3-3-3-3-4-4-4-4-5-5-5-5-6-6-6-6 (enz. enz.)

dus iedere pagina 4x achter elkaar.

Tot nu toe heb ik:

code:

'aantal kopietjes
Printer.Copies = "4"
'lade nummer
Printer.PaperBin = "4"

'open het bestand en lees het uit
Open varBestand For Input As #1

'totdat het einde van het bestand wordt bereikt:
Do Until EOF(1)
    'niet meer dan 80 regels per pagina
     For T = 0 To 79
        'zolang het einde van het bestand nog niet is bereikt
         If Not EOF(1) Then
            'lees de regel uit
             Line Input #1, strLijn
             'druk de regel naar de printer af
             Printer.Print strLijn
         End If
         'begin weer opnieuw te tellen
     Next T
     
     'zolang het einde van het bestand nog niet is bereikt maar er wel een 80ste regel is
     If Not EOF(1) Then
        'nieuwe pagina beginnen
        Printer.NewPage
     End If
'ga terug naar DO UNTIL
Loop

'beëindig het printbestand, begin met afdrukken:
Printer.EndDoc
'sluit het geopende bestand
Close #1

Probleem is echter dat de pagina's nu 'geordend' uitkomen, dus bijvoorbeeld
1-2-3-1-2-3-1-2-3-1-2-3

Dat mag niet, want in de Lade zitten telkens 'pakketjes' van 4 verschillende pagina's (waarop dus 4x hetzelfde moet komen te staan).

Verder is het probleem dat zodra ik de opdracht Printer.PaperBin = "4" geef,
het programma vastloopt (in Win98).
Iemand een idee hoe ik de goede lade (nummer 4) kan selecteren,
en hoe ik kan instellen dat de papiervolgorde beter wordt?

[ Voor 6% gewijzigd door tim-w op 10-11-2003 16:23 ]