Show PDf in form causes 2 copies to be printed

[steve4864]

Having a problem with showing a PDF file in a form. I have a text box that is filled from a browse dialog button and the selected file should show in a web browser control, as shown in instructions here, but when I do it, whenever I click the browse button, 2 copies of the form are sent to the printer. I just can't work it out. Seems that whenever text is entered into the path text box, it tries to print. Completely mystified noob.

[Micron]

2 copies of the form are sent to the printer

Your post is kinda confusing because you say it's trying to print when you enter text in the textbox, plus when it does print, it prints 2 copies? How does that fit in with the video instructions? You'll have to provide your code and more info.

[steve4864]

Sorry, I'm confused myself. I think? it's printing 2 copies because when I browse to a file and select it, the text in the "Path" text box changes and it prints and also the web browser control changes and it prints too? Maybe?

Here is the code for the browse button

Option Compare Database
Option Explicit


Private Sub Command7_Click()


Dim file As FileDialog
Set file = Application.FileDialog(msoFileDialogFilePicker)


file.AllowMultiSelect = False


If file.Show Then
Me.Path = file.SelectedItems.Item(1)
End If


End Sub

The web browser control control source is set to [Path]

This is faithful to the video instructions as far as I know.

Thanks

[June7]

Tested code. Works perfectly. Cannot replicate issue.

[Micron]

Please use code tags for anything more than a few lines, for easier reading and indentation.

This is faithful to the video instructions as far as I know

Except the video said nothing about printing anything. The problem must be in that section. What you've just posted only puts the path in the text box.
Path is a reserved word and shouldn't be used for an object name.

EDIT: as an afterthought, so is FILE

[June7]

Yes, path goes in textbox and WebBrowser control source references the textbox. It works.

To provide db for direct analysis, follow instructions at bottom of my post.

[Micron]

I think the method is
Me.Browser9.Object.Navigate "https://www.accessforums.net/showthread.php?t=69710"

[steve4864]

Hi June7

Yes, everything works apart from it wanting to print all the time. Maybe a problem in the browse button code? Instructions said I may get prompted for a reference when entering the code but I wasn't. Video showed "Microsoft Office 15 Object Library"



which is not on my system?

Have attached db(I think, it's all new to me).

[Micron]

Seems your attachment uses some kind of feature that's not backwards compatible with 2007.
Sorry, can't help under those circumstances.

[June7]

Downloaded your file. I am using Access2010. I get error "User-defined type not defined" on the FileDialog object. Had to add the Microsoft Office 14 Object Library. Then run your code. WebBrowser displays PDF and no attempt to print. No idea what it is about your system. Suggest you try a different computer.

[steve4864]

Downloaded your file. I am using Access2010. I get error "User-defined type not defined" on the FileDialog object. Had to add the Microsoft Office 14 Object Library. Then run your code. WebBrowser displays PDF and no attempt to print. No idea what it is about your system. Suggest you try a different computer.

OK. On a different PC now.
Different problem.
How do I get that reference applied. Option is unavailable when I edit it in code window. Does it depend on what's selected?
How do you add the Office 14 Object Library?

Steep learning curve for me today. Appreciate your help. Cheers.

[steve4864]

Same problem on different PC. Must be that Microsoft Office 14 Object Library that I need.

[Micron]

Code can't be running (not sure, based on your comments). You may not be using that version of Office. Pick the latest version you find in the references list.
The error means that no type library is referenced that would tell Access what the file dialog object is all about. That object goes so far back that I can't recall what version it started with, but you're now seeing the effects of distributing an application across multiple users who may be using different versions. Where I worked, they didn't dump older dll's,tlbs, etc. Rather, they left them there so that many user db's across the company would continue to run for the most part.

14.0 was for 2010

[steve4864]

Thanks for trying to help me. As a workaround I'll convert PDF's to JPEG and no reference to Office Library in VBA code. It works and no printing!!

[June7]

Select library reference from VBA menu: Tools > References > find in list and check it.