Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

72410 / 76807

←次へ　｜　前へ→


	【8881】Excel95からExcel2000へのコンバート

八重歯 - 03/11/7(金) 10:37 -


	引用なし

	パスワード

マクロを使用しExcel95で作成したものを
Excel2000へコンバートしています。

その際にBOOK1からBOOK2へセルのコピーをすると
BOOK1では正常に印刷されていたデータが
BOOK2では印刷範囲からはみ出てしまうという不具合が生じました。

ソースは
Workbooks("BOOK1").Sheets("Sheet1").Cells.Copy
Workbooks("BOOK2").Activate
With Sheets("Sheet2").Cells(1, 1)
　　　　　.PasteSpecial Paste:=xlValues
　　　　　.PasteSpecial Paste:=xlFormats
End With
上記のように作成しています。

BOOK1で印刷した際には正常に一枚に収まるデータが、
BOOK2にデータを貼り付けし、BOOK2を印刷すると印刷範囲からはみ出てしまいます。

.PasteSpecial Paste:=xlFormats
この部分をコメントにすると印刷範囲は正常になるのですが、
罫線もコピーしたいのです。

.PasteSpecial Paste:=xlPasteColumnWidths
上記の列幅をコピーしても無理でした。

BOOK2は全てFONTが英数字(Arial)でで構成されています。

ご指導お願い致します

1 hits

▼

【8881】Excel95からExcel2000へのコンバート 八重歯 03/11/7(金) 10:37

≪