| |
satsukiと申します。
あちこち調べましたが、わかりませんでしたので、どなたかご教示お願いいたします。
エクセルシートを印刷したいのですが、修正する度に行数が変わるので、
改ページ位置をその都度指定して印刷しています。
その際、自動で行数を挿入し、ページごとの行数が同じになるようにしているのですが、下記モジュールで、印刷をするとき、改ページの指定を促すようにしたいのです。
ユーザーフォームを表示したままにして、改ページ指定が終わったら、ユーザーフォーム上のボタンを押して、行追加処理の部分に行くようにしたいのですが、現在は、改ページ指定はできますが、行追加ができません。
どなたかアドバイスよろしくお願いいたします。
--標準モジュール側--
Sub insatsu()
Dim Ws As Excel.Worksheet
Dim HPBreak As Excel.HPageBreak
Set Ws = ActiveSheet
gyo = 50
ActiveWindow.SelectedSheets.PrintPreview
UserForm1.Show vbModeless
If UserForm1.Tag = vbCancel Then
'改行位置を入れる"
ElseIf UserForm1.Tag = vbOK Then
'行追加処理"
End If
End sub
--ユーザーフォーム側--
Private Sub CommandButton1_Click()
Me.Tag = vbOK
Me.Hide
End Sub
Private Sub UserForm_initialize()
Me.Tag = vbCancel
UserForm1.Show vbModeless
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
