フォーマットを変更せずにシートをコピーするVBA

Question

シートを別のブックにコピーするときに何らかの形（行の高さと列の幅）を変更するコードに関する質問があります。これはpdfに印刷する前の中間ステップとして使用されます。シート「1」、「2」および「3」では、A4ページを1つしかカバーしない印刷領域が設定されるが、選択されたシートを新しい一時的ブックにコピーすると、すべての行および列が増加する増加されたピクセル）を使用して、印刷領域が現在いくつかのページをカバーするようにします。誰も助けることができますか？

Sub Print_to_pdf() 

Application.ScreenUpdating = False 

Set Output_Sheets = Sheets(Array("1", "2", "3")) 

Output_Sheets.Select 
Output_Sheets.Copy 

ChDir "XXX" 
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _ 
    "XXX\Print_to_pdf".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ 
    :=False, OpenAfterPublish:=False 

ActiveWorkbook.Close savechanges:=False 

Application.ScreenUpdating = True 

End Sub 

Answer 1

これらのシートをコピーしようとした理由はまだ分かりません。シートをエクスポートするには、単にこれを使用することもできます。

Sub Print_to_pdf() 
    Dim Output_Sheets As Sheets 

    Application.ScreenUpdating = False 

    Set Output_Sheets = Sheets(Array("1", "2", "3")) 
    Output_Sheets.Select 

    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
     "c:\temp\Print_to_pdf.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _ 
     IgnorePrintAreas:=False, OpenAfterPublish:=False 

    Application.ScreenUpdating = True 

End Sub 

エクスポートしたPDFファイルと任意のプリンタとの間に違いがある場合

が、これはおそらく、プリンタドライバとPDFエクスポートエンジンの違いによるものです。これは、両方の（プリンタとエクスポート）に適合するまで、これを回避するために私が見る唯一の方法です。