ＶＢ6.0でcommondialogを使わずに、printerオブジェクトを使ってコマンドボタンをクリッ
クすると印刷を行うようにしています。
印刷自体はでき、ページ数もprinter.pageでとれるのですが、印刷した紙一枚一枚に現在の
ページ/印刷したページ総数というページ項目をつけたいのです。

例）あるものを印刷して３枚印刷された場合、1/3,2/3,3/3,といった風にです。

printer.print printer.page & "/" & ページ総数 というコードで考えているのですがうま
くいきません。
要はどうやったら印刷したときのページ総数をとってこれるのでしょうか？

Printer オブジェクトを使っている以上、総ページ数は自分で判断するしかないかと。


> 要はどうやったら印刷したときのページ総数をとってこれるのでしょうか？
もし、「1 ページにつき、3 件のデータを印字する」という仕様にしているなら、
総ページ数は、印字すべきデータ数から逆算できますよね。
      0 件 → (そもそも印刷しない)
  1〜 3 件 → 1ページ
  4〜 6 件 → 2ページ
  7〜 9 件 → 3ページ
10〜12 件 → 4ページ

ページあたりの印字件数が固定的でなかったとしても、考え方は同じかと。

確かにその方法であれば数えることはできますが、データがそのように一定の規則を持った
ものではないため、使えませんでした。
こちらもprinterオブジェクトを半日近くいじっていて、これはページ総数とるのは無理なの
では、と薄々感じ始めていたところです。

魔界の仮面弁士さん、アドバイスありがとうございました。