Macro configurar impressão e imprimir diretamente

[Gladstone_D]

Olá, preciso da ajuda de vocês

Eu criei uma macro que define 2 intervalos de impressão, onde cada intervalo é impresso em uma página diferente. Ao executar a macro, os intervalos dão definidos e abre a caixa de impressão. Como eu modifico a macro para que seja impresso as duas paginas na mesma folha, desenhar a borda em cada folha e imprimir sem abrir a caixa de impressão. Desde já agradeço o tempo

sub Print_Intervalos

rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
Dim Entregas As Integer
Dim printed As VbMsgBoxResult
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService(“com.sun.star.frame.DispatchHelper”)

'Define Intervalo principal
Entregas = Range(“l1”).Value - 1
Range(“E5”).Select
Range(ActiveCell.Offset(-2, -3), ActiveCell.Offset(Entregas, 7)).Select

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, “.uno:DefinePrintArea”, “”, 0, Array())

'Define Intervalo secundário
Range(“E51”).Select
Range(ActiveCell.Offset(0, -3), ActiveCell.Offset(Entregas, 7)).Select

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, “.uno:AddPrintArea”, “”, 0, Array())

'IMPRIMIR (Ainda está abrindo caixa de impressão
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, “.uno:Print”, “”, 0, Array())

end sub

Gladstone Delfino