Habe das jetzt einfach so gemacht:

Quote

$access->{ActivePrinter} = "FreePDF XP";

$access->{DoCmd}->OpenQuery("Abfrage_1");
$access->{DoCmd}->Printout;

mit ActivePrinter wollte ich den Drucker festlegen den das Programm benutzt, leider nimmt er trotzdem nicht FreePDF sondern den normalen hier eingestellten Drucker :-(

Bin iwie ganz begeistert von Perl, ist ja echt cool was man so alles damit machen kann!