Блог

Главная - Вопросы по программированию - Диалоговое окно «Показать печать»

Диалоговое окно «Показать печать»

#excel #vba

Вопрос:

Я хочу, чтобы Excel показал мне Print Dialog Box , чтобы я мог выбрать принтер перед печатью.

У меня есть этот код

 Private Sub PrintButton_Click()
    Feuil2.Activate
    Feuil2.Select
    Columns("A:A").Select
    Selection.ColumnWidth = 0.5
    
    Columns("B:XFD").EntireColumn.autofit
    
    Application.Dialogs(xlDialogPrint).Show
    ThisWorkbook.Save
End Sub

Но, это показывает мне следующую ошибку в Application.Dialogs(xlDialogPrint).Show строке.

введите описание изображения здесь

Перевод с французского: Compilation error - Expected function or variable

Комментарии:

1. в вашем коде нет ничего плохого. Ошибка где-то в другом месте.

2. похоже, мне нужна функция рисования или что-то другое, что может вызвать диалоговое окно приложения. я добавил скриншот сообщения об ошибке

3. Вы можете поделиться полным кодом.. Лучше всего нажать «Меню отладки» и нажать «Скомпилировать проект». Он подскажет вам, в чем заключается ошибка.

4. Это весь мой код, и он всегда выделяет слово «Приложение» в этом коде

5. С линией все в порядке. Если только причиной не является французская версия. Что происходит, когда вы заменяете Application.Dialogs(xlDialogPrint).Show на Application.Dialogs(8).Show

Метки: