Opening a Default Printer from Menu in Ms Access

  • Thread starter Thread starter vikash.verma
  • Start date Start date
V

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
 
vikash.verma said:
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.
Click to expand...


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

Mike
 
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
 
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
 
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
 
sorry sorry sorry -- sth wnt wrng and the answr was sent three times, wnt
hppn agn.....
 
Thanks It worked
Bye
Vikash


DS NTE said:
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
Click to expand...
 
Back
Top