Comments on: Setting the Print Area with VBA

By: Jarbas

Jarbas — Wed, 20 Apr 2011 13:58:00 +0000

Olá pessoal,

Estou construindo um código e preciso imprimir as páginas de cada planilha selecionada em uma caixa de listagem, mas somente SE determinado intervalo de células estiver diferente de vazio ( ""). Consigui carregar a listbox, consegui selecionar a planilha, resta agora imprimir, SE e somente SE determinado intervalo de células (Range) em cada uma das 19 páginas estiver DIFERENTE DE VAZIO ( ""). Já quebrei a cabeça tentando mas não consegui até agora.

Peço ajuda de vc's.

Jarbas

By: AA

AA — Fri, 18 Mar 2011 10:42:00 +0000

ATTN.: NICK & others

i like this code of yours, very simple

sheet1.range(cells(1,1),cells(10,10)).printout

BUT HOW CAN I SET A VARIABLE RANGE IN THE SECOND PART OF CELLS

so basically 10,10 will change acc to the required area which i need to print. This will be known after a calculation.

thanks in advance and best regards,

By: Cesar

Cesar — Wed, 09 Mar 2011 02:12:00 +0000

What if I want to set a print area based on date ranges with a vba form?

By: john

john — Tue, 17 Jun 2008 04:19:00 +0000

what if i want to set the print area according to what I have selected
Below is my code, I have made a selection of the cells I want to set and i want to set the print area

Range("A1:C1?).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.PageSetup.PrintArea =

By: Bob

Bob — Thu, 29 Nov 2007 03:30:00 +0000

I am trying to print one long line from a worksheet by breaking it up. A1:G1 on the first line with H1:N1 on the second line using Chr(10) or vbCrLf so that I can maintain the font size. Does anyone know what the syntax would be?

By: Tom Van Dam

Tom Van Dam — Wed, 21 Nov 2007 18:26:00 +0000

In order to build a range you can also do the following

Dim strRange as string

strRange = "A1:N" & Var

This way you can determine what the number of rows are and set Var to that value.

By: MGray

MGray — Mon, 19 Nov 2007 17:47:00 +0000

How do I set a specific print area using an assigned date? Example:
Row 8 contains date headers and I want the user to be able to print a date range.

By: Nick

Nick — Tue, 19 Dec 2006 12:59:00 +0000

Well the easiest way to do it is probably

sheet1.range(cells(1,1),cells(10,10)).printout

That will printout the range A1:J10

any of the numbers can be changed for variables.. so you can use that to print out multiple areas on the same sheet onto different pages

By: Crombes

Crombes — Wed, 09 Nov 2005 11:55:00 +0000

What If you would like to print 2 area's
on 2 sheets
somehow i get an error message using
Sheet1.PageSetup.PrintArea = "A1:F15,A20:F45?
first range on page1
second range on page 2

By: Remy B

Remy B — Thu, 16 Jun 2005 05:50:00 +0000

make sure there is a printer installed when using the PrintArea procedure – otherwise it will return an error.