Выбрать столбецЮ F5 - выделить - пустые ячейки. Правый клик на одной из выделенных ячеек - удалить - строку. Распечатать. Ctrl+Z (отменить удаление).

Поместите в модуль книги данную продцедуру:  
 
Private Sub Workbook_BeforePrint(Cancel As Boolean)  
Cancel = True  
 
<код обработки печати>  
 
End Sub  
 
где вместо <код обработки печати> вставьте код который будет скрывать ненужные строки, печатать то что нужно, и отображать все строки обратно.

где находится модуль книги и что конкретно мне нужно написать вместо код...?

Про модули читайте тут:  
http://www.excel-vba.ru/chto-umeet-excel/chto-takoe-modul-kakie-byvayut-moduli/  
 
а какой именно должен быть код обработки вам лучше знать (я ведь не вижу ваш файл)

{quote}{login=}{date=19.09.2011 12:53}{thema=Re: Как не печатать пустые ячейки}{post}{quote}{login=Janna-janna}{date=19.09.2011 12:17}{thema=Как не печатать пустые ячейки}{post}Если у меня есть таблица с двумя столбцами и 30 строками. Первый столбец заполнен полностью - второй нет - есть пустые ячейки. Вопрос: как сделать так, чтобы строки в которых имеются эти пустые ячейки во втором столбце не выводились на печать совсем. Автофильтр не подходит, говорю сразу. Если кто-то знает, помогите.{/post}{/quote}  
Интересно, а почему автофильтр не подходит? М.б. тоже сразу скажете?{/post}{/quote}  
практически он подходит. то есть его можно использовать и получить результат. Но задача должна быть решена именно без его помощи, такое условие. Я понимаю, что автофильтр самое простое и логичное решение, и тем не менее.

Здравствуйте!  
вот макрос который скрывает строку если ячейка во втором столбце пуста.    
Sub HideRows()  
Dim x(), i&, hr As Range: Application.ScreenUpdating = 0  
With Range([B1], Cells(Rows.Count, 1).End(xlUp))
    x = .Value  
    For i = 3 To UBound(x)  
        If x(i, 1) = Empty Then  
            If hr Is Nothing Then Set hr = .Cells(i) Else Set hr = Union(hr, .Cells(i))  
        End If  
    Next i  
    .EntireRow.Hidden = False  
End With  
If Not hr Is Nothing Then hr.EntireRow.Hidden = True  
Application.ScreenUpdating = 1  
End Sub  
 
можно привязать к кнопке и нажимать перед печатью(чтобы скрыть), и сделать еще одну кнопку с таким же макросом, но заменить Range([B1] на [A1], нажимать после печати чтобы показать строки. как то так.

ошибся Rows.Count, 1 надо было заменить на Rows.Count, 2  
в примере все работает.

Или так  
 
Sub HideRows3()  
[B:B].SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
ActiveSheet.PrintOut  
Rows.Hidden = False  
End Sub