$access->{DoCmd}->Printout(
    {
        ActivePrinter => "FreePDF XP",
    },
) or die Win32::OLE->LastError();