Search results

The first signature box is 17mm in height so 48.2 points. Specifying the vertical size seems to work as the horizontal size scales by itself. I can't believe it was so simple. Left:=128 + HorizCor, Top:=650 + VertCor, Height:=48.2)

textboxcount is just the shape number. Originally I was just using textboxes only. I think I can set the shape to have a particular vertical size when I define it, so will try that and see if it scales the image vertically and horizontally to fit.

Properties of original 2047 x 1017 dpi not shown. New image is 1280 x 704 96 dpi.

Hi. Thanks for your reply. I tried the above code but it results in an image that is too big. I then thought to set to the original image size and the convert from that. Sadly that makes the image too small. I feel there is something I'm missing. Could dpi be causing an issue? SigScale =...

I capture signatures using an android device and put them in a publisher document that is printed onto a template form. I want to be able to use different devices for signature capture. The problem is the images then have different resolutions. I altered my code to scale the images based on the...

Thanks. As above I'm ok with access reports, I would just like to create a publisher doc, print it and then dispose of it. The problem with saving it first is sometimes different users cannot overwrite the previous version causing issues. I've searched high and low but cannot find any example...

I need help printing a publisher document created in Access VBA: Dim DocPub As Publisher.Document, appPub As New Publisher.Application, ShpTB As Publisher.Shape Set DocPub = appPub.NewDocument DocPub.Pages.Add count:=1, After:=1 */ Create 2 page document /* I want to print the document...

Thanks all. Having thought a bit more it only matters if the first few characters match so I have gone with this: If Left(pracname, 4) Like Left(pracadd, 4) Then pracadd = Right(pracadd, Len(pracadd) - (InStr(pracadd, ",") + 1)) End If

I'm scraping data from here: https://www.nhs.uk/service-search/find-a-gp/results/BL3 It returns the practice name, address and phone all separately. The "Cleggs Lane Medical Practice/129" is easy to fix. The problem with the one above is the practice name is also in the address, but with a very...

I want to remove: Dr P K Jain & Dr T Subramanian from: Dr P Jain & Dr T Subramanian, Little Lever Health Centre, Mytham Road, Little Lever, Bolton, Lancashire, BL3 1JF leaving just the address. string1 = "Dr P K Jain & Dr T Subramanian" & ", ") string2 = "Dr P Jain & Dr T Subramanian...

Thanks again. The */ do stuff /* bit is this: For y = 0 To UBound(OuterArray, 1) horizpos = horizstart + (OuterArray(y)(1) * horizincrement) vertpos = vertstart + (OuterArray(y)(2) * vertincrement) party = OuterArray(y)(0) For x = 1 To min(OuterArray(y)(3), Len(OuterArray(y)(0))) Set ShpTB =...

Thanks all. I will read up more on arrays but for now I have gone with this: ar1 = Array(Title, 0, 0, 4) 'Title line 0 ar2 = Array([First Names], 8, 0, 27) 'Firstname Middlename line 0 ar3 = Array(Surname...

I want to generate multiple array variables (to hold strings and number) and loop through them. I was thinking something like: For x = 1 to 9 Dim myarray_x(3) as variant Next x This doesn’t work but I guess can be overcome using: Dim myarray(3, 8) as variant The problem now is I want to...

Thanks. I remember seeing that come up in a few searches but didn't realise it may help. I have tried it and modified my own code to copy it. Sadly it still doesn't save anything when using duplex. From other reading I think it may have something to do with the pages property, but I'm not sure...

I use the following code to scan. I have manged to get it scanning from ADF correctly single sided. I also want to duplex scan. When I change document handling properties to duplex the scanner runs and clearly performs duplex scanning. The problem is nothing is saved. What do I need to modify...

Thanks. The second like looks useful. I think I'm querying the correct property, as I think 3087 is fixed as ADF status. I'm worried it's something that's not being reported by the printer anymore. When I load a document into ADF it still scans from the flatbed whereas the previous printer would...

I'm trying to set a scanner up to use auto document feeder if it's available. It was working fine previously but I have changed my printer. I'm sure I had some code somewhere that listed the available printer/scanner options. Something like: Set wiaScanner = wiaDialog.ShowSelectDevice Dim...

What do you mean by full name? AppActivate "Microsoft Excel" doesn't work? Do you mean the name as shown in the title bar? I tried that but it doesn't seem to work either. Maybe I am typing it wrong.

I used to use AppActivate (oXLApp) but that ran into error with windows 10 vs 7 so I started using AppActivate "Excel" The code around it is: Dim oXLApp As Excel.Application 'Declare the object variables Dim oXLBook As Excel.Workbook Dim oXLSheet As Excel.Worksheet Set oXLApp = New...

I use AppActivate "excel" One PC now has 64 bit office and on this pc the code generates an error. Can anyone help fix this?