ちゅらぷら日記

ポポロとかやってるゲームとかお仕事メモとか書きます

スポンサーリンク

印刷を用紙一枚に

 

列を1ページに収める

ActiveSheet.PageSetup.FitToPagesWide = 1

 

行を1ページに収める

ActiveSheet.PageSetup.FitToPagesTall = 1