|
▼Win さん:
おはようございます。
>
>ユーザーフォームのテキストボックスを使って通常の印刷コマンドのページ指定と同じような事をしたいのですが、プリントエリアを一括で選択する設定をしてしまうと改ページしたい行がずれてしまうので、
ページレイアウトが正しく設定されていないからでしょうかねえ・・、
もっとも私もよくやりますが・・・。
ページごとにarea1〜area10と名前をつけ、TextBox1に最初のページ数、TextBox2に最後のページ数を入力するようにしました。
>たとえば、TextBox1=2 TextBox2=5の場合
>印刷範囲はarea2:area5となるようにしたかったので、
>
>Private Sub 印刷開始_Click()
dim idx as long
dim jdx as long
dim st as long
dim ed as long
st=textbox1.value
ed=textbox2.value
ReDim nm(1 To ed - st + 1)
For idx = st To ed
nm(jdx + 1) = "area" & idx
jdx = jdx + 1
Next
> Sheets("○○").Activate
ActiveSheet.PageSetup.PrintArea = application.Range(Join(nm(), ",")).address
>End Sub
>
とすれば、エラーはなくなると思いますが・・・、
果たしてご希望通り処理されるかは試してみてください。
|
|