SENDKEYS with vbYesNoCancel and Select Case

kiwimtnbkr · #1 05-30-2018, 04:02 PM

Quote:

Originally Posted by gmaxey

Kiwi,

I didn't try to validate txtPages as I thought if left blank (i.e., not is numeric) then you would be printing all pages. As for entering the comma, dash and space that is due to the KeyPress event code. Change it to:

Code:

Private Sub txtPages_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  m_bTest = IsInteger(KeyAscii)
  If m_bTest = False Then
    Select Case KeyAscii
      Case Is = 32, 44, 45
      Case Else
        Beep
        KeyAscii = 0
    End Select
    Else
      Beep
      KeyAscii = 0
  End If
End Sub

so the one frm would cover both printing the entire document and a selection of pages?

slaycock · #2 05-30-2018, 11:27 PM

Is everything working OK now. If not then I'm happy to look at your doc and worksheet.

kiwimtnbkr · #3 05-30-2018, 11:39 PM

It certainly appears to be but haven't been able to, thanks to working in a Citrix networked printer environment, get the duplex printer functionality to work due to changing session numbers.

I didn't have a chance to fully test it today but hope to do so tomorrow but so far so good so a MASSIVE thank you!

Will let you know how it goes tomorrow.

cheers muchly
Mike

kiwimtnbkr · #4 06-11-2018, 01:32 AM

Quote:

Originally Posted by slaycock

Is everything working OK now. If not then I'm happy to look at your doc and worksheet.

Finally had a chance to put this into the production environment and it works brilliantly!

Can't thank you enough for taking the time to explain how to do everything from the creation of the forms to the coding.

Very much appreciated.

slaycock · #5 06-11-2018, 04:56 AM

Well done yourself for being willing to have a go. Now go bask in your glory;-)

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Help with Case and Select case	brent chadwick	Word VBA	34	10-18-2015 02:13 PM
Replace & case	Jennifer Murphy	Word	1	02-11-2013 03:26 AM
A macro that can insert FILENAME, sendkeys CTRL ALT T, paste clipboard, and nextline	kyjac85	Word VBA	13	09-20-2012 05:00 PM
Problem with the sendkeys in Win7	vidyapakki	Excel Programming	1	05-07-2012 11:10 PM
From all UPPER CASE to Proper Case	davers	Word	1	04-30-2009 12:41 PM