|
▼かみちゃん さん:
>そういうことは最初から言っていただいたほうがいいかと思います。
>でも、必ずその文字数以内に収まるのですか?
>長〜い文字列になると、中央のヘッダーと重なると思いますよ。
たびたびすみません。
一応、データ中の最大文字数なので大丈夫かと思います。
>試してみてダメなら、どういうコードにしたかは提示していただいたほうがいいと思います。
>
> ActiveSheet.PageSetup.LeftHeader = Range("A1").Value & vbCrLf & "から入庫する"
>
>でできませんか?
>これでも変わらないなら、A1セルの末尾が改行されている可能性があります。
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftHeader = Range("A1").Value & vbCrLf & "から入庫する"
End Sub
先ほどののヒントで構成したコードですが、かみちゃんさんの提示していただいたコード
と同じ?ようですがうまくいきません。
A1の値は他のシートから=SHEET1!で持ってきた値なので改行が入っているのか分かりません・・・
宣言が間違っているのでしょうか・・・
|
|