Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12736 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【8881】Excel95からExcel2000へのコンバート 八重歯 03/11/7(金) 10:37 質問
【8882】Re:Excel95からExcel2000へのコンバート INA 03/11/7(金) 10:45 回答
【8883】Re:Excel95からExcel2000へのコンバート 八重歯 03/11/7(金) 10:51 質問
【8906】Re:Excel95からExcel2000へのコンバート kein 03/11/7(金) 21:45 回答
【8936】Re:Excel95からExcel2000へのコンバート 八重歯 03/11/11(火) 10:09 お礼
【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)でで構成されています。

ご指導お願い致します
【8882】Re:Excel95からExcel2000へのコンバート
回答  INA  - 03/11/7(金) 10:45 -
引用なし
パスワード
   ちょっと気になったのですが、
Workbooks("BOOK1")って
Workbooks("BOOK1.xls")にしなくても大丈夫ですか？
【8883】Re:Excel95からExcel2000へのコンバート
質問  八重歯  - 03/11/7(金) 10:51 -
引用なし
パスワード
   ▼INA さん：
>ちょっと気になったのですが、
>Workbooks("BOOK1")って
>Workbooks("BOOK1.xls")にしなくても大丈夫ですか？

すいません。
Workbooks("BOOK1.XLS")
の間違いです。
【8906】Re:Excel95からExcel2000へのコンバート
回答  kein  - 03/11/7(金) 21:45 -
引用なし
パスワード
   うまくいくかどうか分かりませんが

Sub Test()
　 Dim Ad As String

　 With Workbooks("BOOK1.xls").Sheets("Sheet1").UsedRange
　　　Ad = .Address
　　　.Copy
　 End With
　 With Workbooks("BOOK2.xls").Sheets("Sheet2")
　　　.Cells(1, 1).PasteSpecial xlPasteValues
　　　.Cells(1, 1).PasteSpecial xlPasteFormats
　　　With .PageSetUp
　　　　 .PrintArea = Ad
　　　　 .Zoom = False
　　　　 .FitToPagesWide = 1
　　　　 .FitToPagesTall = 1
　　　End With
　　　.PrintPreview
　 End With
　 Application.CutCopyMode = False
End Sub
【8936】Re:Excel95からExcel2000へのコンバート
お礼  八重歯  - 03/11/11(火) 10:09 -
引用なし
パスワード
   ▼kein さん：
>うまくいくかどうか分かりませんが
>

ありがとうございます。
うまくいきました。多少カスタマイズさせて
頂きましたが、自分が思うような形で出力することが
出来ました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12736 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free