Opening a Default Printer from Menu in Ms Access

[vikash.verma]

Hi All
I have to generate a Default Printer Option by selecting from the Sub Menu
(My sub menu has "Import","Print","Exit").
I am not able to genetae the Default Print Option.

I am searching for some sample.
I dont want to use the Macro as the Macro directly prints the Report.I want
to show the customer the Default Print Dialog box as shown by the
Microsoft.If any one of you have worked on it then let me know.

Thanks
Vikash

 

[MikeD]

Hi All
I have to generate a Default Printer Option by selecting from the Sub Menu
(My sub menu has "Import","Print","Exit").
I am not able to genetae the Default Print Option.

I am searching for some sample.
I dont want to use the Macro as the Macro directly prints the Report.I want
to show the customer the Default Print Dialog box as shown by the
Microsoft.If any one of you have worked on it then let me know.

FYI....this doesn't belong in microsoft.public.vb.general.discussion (where
I'm reading it).

Mike

 

[DS NTE]

Is this what you are looking for ??

Public Function ChoosePrint()
On Error Resume Next
Dim strRptName
strRptName = Screen.ActiveReport.Name
DoCmd.SelectObject acReport, strRptName, False
DoCmd.RunCommand acCmdPrint
End Function

This let you choose what printer to use when you are previewing a report.
Modify to your needs.


hth
knut

 

[DS NTE]

Is this what you are looking for ??

Public Function ChoosePrint()
On Error Resume Next
Dim strRptName
strRptName = Screen.ActiveReport.Name
DoCmd.SelectObject acReport, strRptName, False
DoCmd.RunCommand acCmdPrint
End Function

This let you choose what printer to use when you are previewing a report.
Modify to your needs.


hth
knut

 

[DS NTE]

Is this what you are looking for ??

Public Function ChoosePrint()
On Error Resume Next
Dim strRptName
strRptName = Screen.ActiveReport.Name
DoCmd.SelectObject acReport, strRptName, False
DoCmd.RunCommand acCmdPrint
End Function

This let you choose what printer to use when you are previewing a report.
Modify to your needs.


hth
knut

 

[DS NTE]

sorry sorry sorry -- sth wnt wrng and the answr was sent three times, wnt
hppn agn.....

 

[vikash.verma]

Thanks It worked
Bye
Vikash

Is this what you are looking for ??

Public Function ChoosePrint()
On Error Resume Next
Dim strRptName
strRptName = Screen.ActiveReport.Name
DoCmd.SelectObject acReport, strRptName, False
DoCmd.RunCommand acCmdPrint
End Function

This let you choose what printer to use when you are previewing a report.
Modify to your needs.


hth
knut