PDFへのExcel

ご挨拶、私は自分のVBA全体を貼り付けました.
そしてPDF Additを保存します.
彼らは搭乗しています、そして私たちは1から300のどこにいても、名前を除いてすべて同じになるでしょう.しかし、それは失敗することはない
2番目のものは常に間違ったブロックを記入してから、その後うまく機能します.それがタイミングのものやグリッチであるかどうかわからない.さらに、セキュリティ設定のため、私たちの管理者がPDFのためのセキュリティ設定のために、「Microsoft Print To PDFへの印刷」に保存する必要があります.私は...するだろう
Adobe PDFとして保存したいが、「すべての機能を有効にする」を押す必要があるボタンがあります.私が使用できるコードはそれを「すべての機能を有効にする」そしてどこでそれが配置されるでしょうか.私はQUEで多くのフォームを作成することができるためにループに入る必要があります.もし私が
Adobe PDFとして保存できます.マクロが実行されたら、必要に応じてフォームに編集を行うことができます.どうもありがとうございました！

オプションの明示的
サブPDFTEMPLATE()
FileDialogとしてDIM PDFFLDR
PDFFLDR= Application.FileDialog(MSOFILEDIALOGFILEPICKER)を設定する
pdffldrを使って
.title= "添付するPDFファイルを選択"
・filters.add "PDFタイプファイル"、 "* .pdf"、1
場合は.show<>-1からNoSelectionを後にします
Sheet3.Range( "B2").値= .SelectedItems(1)
際に終わる
ナセレクション:
終了サブ
sub savepdffolder()
FileDialogとしてDIM PDFFLDR
PDFFLDR= Application.FileDialog(MSOFILEDIALOGFOLDERPICKER)
pdffldrを使って
.title= "フォルダを選択"
.show<>-1がNOSELになった場合:
Sheet3.Range( "B3").値= .SelectedItems(1)
際に終わる
ノーゼル:
終了サブ
サブCreatePDFForms()
Dim PdftemplateFile、NewPDFName、AMC148ショート、FlightNumber
文字列としての薄暗い名前
Dim Namerow、LastRow
シート3と
LASTROW= .Range( "A450").終了(XLUP).ROW '最後の行
PDFTEMPLATEFILE= .Range( "B2").値のテンプレートファイル名
AMC148Short= .Range( "B3").値 'PDFフォルダを保存する
ThisWorkbook.FollowHyperLink PDFTemplateFile.
application.wait今すぐ+ 0.00006
Namerow= 6からLastrowへ
name= .range( "&namerow).valueのフルネーム
FlightNumber= .Range( "B"&Namerow).Value 'フライト番号
application.sendkeys "{タブ} 「、true.
application.sendkeysの名前、true.
application.wait今すぐ+ 0.00003
application.sendkeys "{タブ} 「、true.
Application.SendKekeys .Range( "B"とNamerow).value、true 'フライトナンバー
application.wait今すぐ+ 0.00001
application.sendkeys "{タブ} 「、true.
Application.SendKeys .Range( "C"とNamerow).value、true 'line#
application.wait今すぐ+ 0.00001
application.sendkeys "{タブ} 「、true.
application.sendkeys "^(p)"、true.
application.wait今すぐ+ 0.00003
Application.SendKeys "{Enter} 「、true.
application.wait今すぐ+ 0.00006
DIR(AMC148Short&"\"&"_"&name&"pdf")<>空を殺す(aaa148short&"&" _"&name&" .pdf ")
application.sendkeys "%(n)"、true.
application.wait今+ 0.00002
Application.SendKeys aaa148ショート&"\"&"_"&"_"&name&".pdf"
application.wait今すぐ+ 0.00003
Application.SendKeys "%(s)"、true.
application.wait今すぐ+ 0.00003
次のナメル
application.sendkeys "^(q)"、true.
application.sendkeys "{タブ} 「、true.
Application.SendKeys "{Enter} 「、true.
application.wait今+ 0.00002
application.sendkeys "{numLock} %s "、true.
際に終わる
終了サブ