Print Raport til 2 printere

Kan du arbejde med en virtuel pdf-printer!~)

ja..  eller bruger det program som hedder FinePrint pdfFactory Pro til at lave PDF filer med...

Så skal du selvfølgelig ind og sætte alle disse parametre i din udskriftsfunktion, det nemmeste ville være at:

docmd.openreport "reportnavn", acnormal
docmd.runcommand accmdprint

Dette vil fyre en rapport afsted til standardprinteren og så vil der komme et print billede hvor du så ville kunne vælge en alternativ printer. Her kunne du så have tilføjet en virtuel pdf-printer!~)

Jeg kigger forbi imorgen....

jeg har godt nok fundet en anden løsning nu. det blev en makro som står til at åbne en Raport, som så udskriver og der er tilføjet en bestemt printer, men det kraver 2 Raporter.. hehe.. men hvis nogen har en lidt bedre ide, så kom endlig med den :D

ja, hvis der er en som kan få dette til at fungere!~)

Private Sub UdskrivBestemtPrinter_Click()
Call PrintReport("report1", "HP 4200 Serverum")
End Sub

Public Sub PrintReport(strReport As String, strPrinter As String)
Dim rpt As Report

DoCmd.OpenReport strReport, acViewPreview, , , acHidden
Set rpt = Reports(strReport)

Set rpt.Printer = Application.Printers(strPrinter)
DoCmd.OpenReport strReport
DoCmd.Close acReport, strReport
End Sub

Er spm. lukket?~)

kom med et svar så lukker vi det :D

!~)