Sowas zu schreiben ist eigentlich nur möglich, wenn du nen Drucker mit einem Parallelport (LPT) Anschluss hast, da, dort solche Infos, wie "Papier leer" einen speziellen Eingangsbit haben. Allerdings kann man mit Win NT (Win NT 4.0, 2000 und XP) nicht so ohne weiteres unter VB6 den Parallelport ansprechen, da aus irgendeinen Grund alle Eingangs- und Ausgangsbit auf "1" gesetzt werden und man sie nicht auf "0" setzen kann.
Unter Win 9x und ME kann man sofort mit dem Parallelport unter VB6 arbeiten, wenn man weiss, wie

Aber wer braucht so ein idotisches Programm?
Der Drucker meldet sich schon, wenn das Papier leer ist und ausserdem dauert es zu lang, um erstmal alle Blätter durchzujagen. Wenn man überlegt, dass dort über 200 Blatt reinpassen.