Sub エクセルシートをPDFとして出力する()

    ログイン名 = CreateObject("WScript.Network").UserName
    
    PDFファイル名 = "C:\Users\" & ログイン名 & "\Desktop\" & "サンプル.pdf"
    
    '"Sheet1"でシート名を指定する
    '複数ページはの場合はWorksheets(Array("Sheet1", "Sheet2")).Select
    Worksheets("Sheet1").Select
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFファイル名

End Sub