<div>
Perhaps.<br />

<pre><code id="code-20-42094399-1">Dim strDocsPath As String
Dim strRptName As String

    strRptName = &quot;rpt_SW_Report_By_H&quot;

    strDocsPath = CreateObject(&quot;WScript.Shell&quot;).SpecialFolders(&quot;MyDocuments&quot;)

    DoCmd.OutputTo acOutputReport, strRptName, acFormatPDF, strDocsPath &amp; &quot;\&quot; &amp; strRptName &amp; &quot;.pdf&quot;, True</code></pre>
</div>


Perhaps.


Dim strDocsPath As String
Dim strRptName As String

    strRptName = "rpt_SW_Report_By_H"

    strDocsPath = CreateObject("WScript.Shell").SpecialFolders("MyDocuments")

    DoCmd.OutputTo acOutputReport, strRptName, acFormatPDF, strDocsPath & "\" & strRptName & ".pdf", True

<div>
correction on typo<br />
<br />
Dim xFolder As String<br />
&nbsp;xFolder = Environ(&quot;UserProfile&quot;) &amp;&nbsp;&quot;\Documents&quot;<br />
&nbsp;If Dir(xFolder, vbDirectory) = &quot;&quot;&nbsp;Then<br />
&nbsp; &nbsp; &nbsp;xFolder = Environ(&quot;UserProfile&quot;) &amp;&nbsp;&quot;\My Documents&quot;<br />
&nbsp;End If<br />
<br />
&nbsp;DoCmd.OutputTo acOutputReport, &quot;rpt_SW_Report_By_H&quot;, acFormatPDF, xFolder &amp;&nbsp;&quot;\rpt_SW_Report_By_H.pdf&quot;,<wbr /> True
</div>


correction on typo

Dim xFolder As String
 xFolder = Environ("UserProfile") & "\Documents"
 If Dir(xFolder, vbDirectory) = "" Then
     xFolder = Environ("UserProfile") & "\My Documents"
 End If

 DoCmd.OutputTo acOutputReport, "rpt_SW_Report_By_H", acFormatPDF, xFolder & "\rpt_SW_Report_By_H.pdf", True

<div>
<div class="content wysiwyg-content">
Is there a relative path I can add to the VBA below to dump the PDF into the Documents or My Documents folder in a variety of Windows OS's?<br />
<br />
If Len(where) &gt;&nbsp;0 Then<br />
&nbsp; &nbsp; where = Left(where, Len(where) - 1)<br />
&nbsp; &nbsp; DoCmd.OpenReport &quot;rpt_SW_Report_By_H&quot;, acViewPreview, , &quot;lc_craftsid IN (&quot; &amp;&nbsp;where &amp;&nbsp;&quot;)&quot;, acHidden<br />
&nbsp; &nbsp; DoCmd.OutputTo acOutputReport, &quot;rpt_SW_Report_By_H&quot;, acFormatPDF, &quot;<b>C:\Test\rpt_SW_Report_By_H<wbr />.pdf</b>&quot;, True<br />
&nbsp; &nbsp; End If
</div>
</div>


Is there a relative path I can add to the VBA below to dump the PDF into the Documents or My Documents folder in a variety of Windows OS's?

If Len(where) > 0 Then
    where = Left(where, Len(where) - 1)
    DoCmd.OpenReport "rpt_SW_Report_By_H", acViewPreview, , "lc_craftsid IN (" & where & ")", acHidden
    DoCmd.OutputTo acOutputReport, "rpt_SW_Report_By_H", acFormatPDF, "C:\Test\rpt_SW_Report_By_H.pdf", True
    End If

MS Access How can I add a relative path to my VBA PDF output that will work for most Windows computers?

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.

Microsoft Access

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.