Excelシートからpdfが機能しない

Question

シートをpdf形式に保存するマクロがありますが、それ以上は機能しません。ここでは、コードは次のようになります。

With ActiveSheet.PageSetup 
    .CenterHeader = strFile2 
    .Orientation = xlPortrait 
    .PrintArea = "a1:q21" 
    '.PrintTitleRows = ActiveSheet.Rows(5).Address 
    '.Zoom = False 
    .FitToPagesTall = False 
    .FitToPagesWide = 1 

End With 


    ws.ExportAsFixedFormat Type:=xlTypePDF, _ 
     Filename:=strFile, _ 
     Quality:=xlQualityStandard, _ 
     IncludeDocProperties:=False, _ 
     IgnorePrintAreas:=False, _ 
     OpenAfterPublish:=False 

私は

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ 
    :=False, OpenAfterPublish:=OpenPDFAfterCreating 

で試してみました。しかし、それは事はその私の同僚でマクロな作品ではなく、である同じ無効なプロシージャ呼び出しまたは引数

を与えます私のPC。ありがとうございました。

Answer 1

貼り付けたコードのスニペットの外に変数を宣言しましたか？ワークシートとしてWSを宣言する必要があるか、問題を持ってしようとしている：私はActiveSheetを避けることをお勧めしますけれども、それは問題につながることができるので

Dim ws as Worksheet 

あなたは、それを使用するためには、WS = ActiveSheetを設定する必要があります。何か良いことがあります：

Set ws = Workbooks("**Name of your workbook**").Worksheets("**Name of worksheet**") 

With ws.PageSetup 
**code** 
End With 

希望に役立ちます。