отправлял бы печать на принтер, количесто копий указанных в ячейке

[mars56]

помогите написать макрос который отправлял бы печать на принтер, количесто копий указанных в ячейке (например А2)

[пасечник]

Sheets(1).PrintOut Copies:=Sheets(2).Range("A2")
Учитесь пользоваться макрорекордером - будете без лишней суеты получать ответы на многие вопросы.

[пасечник]

Чтобы не разглядывать сообщения об ошибках, можно так:

On Error Resume Next
Sheets(1).PrintOut Copies:=Sheets(2).Range("A2") 'Val(Sheets(2).Range("A2"))
On Error GoTo 0

Или так:

Dim x
x = Val(Sheets(2).Range("A2").Value)
If x > 0 And x < 32767 Then Sheets(1).PrintOut Copies:=x

Из правки по функции Val:
This example uses the Val function to return the numbers contained in a string.

Dim MyValue
MyValue = Val("2457")    ' Returns 2457.
MyValue = Val(" 2 45 7")    ' Returns 2457.
MyValue = Val("24 and 57")    ' Returns 24.

Учитесь пользоваться справочной системой - будете без лишней суеты получать ответы на многие вопросы.

[mars56]

спасиб за совет, но чет не получается так сделать. В общем надо просто отпределнный диапазон ячеек распечать столько копий, которые были бы указанны в определенной ячейке (например надо распечатать диапазон ячеек "Лист1 А1:L8", колчество копий указанно на "Лист2 D3")

[EducatedFool]

А если так попробовать?

Sub test()
    [Лист1!A1:L8].PrintOut Copies:=[Лист2!d3]
End Sub

[mars56]

а так другое дело, все получелось, спасибо