具体的な内容を書きました。

１件の回答をいただきました。具体的なものがないのでということなので、コードを書いたものを送ります。よろしくお願いします。
rivate Sub CB1_Click()

'棚札自動印刷　2008/12/15 mari.sugiura

Dim 番号 As Integer
a = TB1.Value
n = TB2.Value

For 番号 = a To n

Sheets("評価評定印刷").Range("j1").Value = 番号
Sheets("評価評定印刷").PrintOut

Next 番号


Unload Me

End Sub

Private Sub UserForm_Click()

End Sub
質問内容
VBAは全く分からないのですが、vlookup関数を使い、１番から３３番までの成績を番号ごとにだし、連続印刷したい場合のVBAのサンプルをダウンロードして、中身を書き換えて印刷したのですが、パソコンを変えて印刷すると印刷ができません。どのパソコンでも印刷できるようなＶＢＡを知りたいのですが…よろしくお願いします。

No.2 回答者： ka28mi 回答日時： 2015/05/31 14:23

あるパソコンだと印刷できて、別のパソコンだと印刷できないという場合なら、疑わしいのはVBAの中身ではなく、パソコンの設定です。

セキュリティ設定でマクロを実施しないようになっていれば、どんなVBAでも実行できません。

この回答へのお礼

ありがとうございました。パソコンの設定を確認してみます。
また、よろしくお願いします。

お礼日時：2015/05/31 15:55

No.1 回答者： elunaruna 回答日時： 2015/05/31 13:49

https://oshiete.goo.ne.jp/qa/8992845.html
こちらの質問に補足してください。
https://oshiete.goo.ne.jp/guide/question/more

この質問は締め切ってください。