Checking the Code

[PMRetired2012]

What im wondering is there a way to shorten the code for these lines of code that i have written and get the same outcome. What i want to do is only print pages that have something in cell A3 and S3 and then i want it to print both pages. Here is the code i have writen>

If OptionButton2 = True Then

Dim A As Integer
A = 1
For A = 1 To 12
Sheets(A).Select
If WorksheetFunction.CountA(ActiveSheet.Range("A3:A54")) <> 0 Then
Range("A1:R54").Select
'PrintPreview
If CheckBox3.Value = True Then ExecuteExcel4Macro "PRINT(1,,,1,,TRUE,,,,,,1,,,TRUE,,FALSE)"
'Print
If CheckBox3.Value = False Then ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"
Else
A = A + 1
End If
Next A



If CheckBox1.Value = True Then

Dim B As Integer
B = 1
For B = 1 To 12
Sheets(B).Select
If WorksheetFunction.CountA(ActiveSheet.Range("S3:S54")) <> 0 Then
Range("S1:AL54").Select
'PrintPreview
If CheckBox3.Value = True Then ExecuteExcel4Macro "PRINT(1,,,1,,TRUE,,,,,,1,,,TRUE,,FALSE)"
'Print
If CheckBox3.Value = False Then ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"
Else
B = B + 1
End If
Next B

 

[Logit]

.

Option Explicit

Sub PrintComplete()
    
    Dim ws As Worksheet
    
    'check if cell is empty.
    For Each ws In ActiveWorkbook.Worksheets
        
        If ws.Cells(3, 1) = "" Or ws.Cells(3, 19) = "" Then
        
        Else
            ws.PrintOut
        End If
        
    Next

End Sub

 

[PMRetired2012]

i failed to tell you that i have choices in a userform that i can select and i dont think this code you gave me will work. im going to put a pic on here of my userform that has the choices i can choose from to print. That is why i dont think the code you gave me will work. Let me know what you decide. Thanks



View attachment 24441

.

 

[Logit]

The pic attach doesn't work.

The best method would be to place your workbook on a download site for review. That way your actual working environment and the code is presented. Do not include any
confidential information in the workbook.

 

[PMRetired2012]

Ok how do i put workbook on a dowload site? not sure what that is. and then how do i get it to you?

 

[Logit]

One site is DROPBOX.COM. There are other sites out there as well. They are free and easy to use. Google.

Once you place the workbook on the site, it will provide you with a means to copy the URL location of the workbook. Copy
that URL and paste it here using the LINK selection in the menu above.

 

[PMRetired2012]

Im Sorry but you need to give me step by step instruction i dont know how to use dropbox. give me some other ways.
thanks

 

[Logit]

Go to : Dropbox

Create an account.

Log in to your account and save your workbook as a file in your account.

Somewhere on the Dropbox menu will be a selection for copying the file location (URL) on Dropbox.

Copy that URL and paste it in a reply here.

You were able to create an account here on MREXCEL.COM and post a question. There is no reason you can't navigate Dropbox.

 

[PMRetired2012]

ok hang on i am working on it..

 

[PMRetired2012]

Lets try this

Login - Dropbox

Login to Dropbox. Bring your photos, docs, and videos anywhere and keep your files safe.

www.dropbox.com