Print range for each page
up vote
-1
down vote
favorite
How can I change printed area per each page?
What I want to do: Manually in "page break preview" I can relocate line between pages, that redefine for me area per page. I want to do it from vba code. Is it possible?
My case: I have tables in excel, that created by code, that's mean number of lines in these tables can be different. I want to have the whole table in one page, not divided like I have now, for that reason I will check the end of the tables, and want to relocate end of the pages to these rows, in loop for all tables & pages.
Can somebody help me please?
excel vba excel-vba
asked Nov 12 at 18:10
Mikki85
21
add a comment |
up vote
-1
down vote
favorite
How can I change printed area per each page?
What I want to do: Manually in "page break preview" I can relocate line between pages, that redefine for me area per page. I want to do it from vba code. Is it possible?
My case: I have tables in excel, that created by code, that's mean number of lines in these tables can be different. I want to have the whole table in one page, not divided like I have now, for that reason I will check the end of the tables, and want to relocate end of the pages to these rows, in loop for all tables & pages.
Can somebody help me please?
excel vba excel-vba
asked Nov 12 at 18:10
Mikki85
21
1
It's possible, look intoWorksheet.PageSetup; note that thePageSetup& page breaks API is rather flaky, so you'll want to be in page break previous mode to manipulate page breaks. Got any code?
– Mathieu Guindon
Nov 12 at 18:37
Unfortunately, I didn't find how can I implement Worksheet.PageSetup but I found VPageBreaks, I will try to do something similar to this: stackoverflow.com/questions/25719060/… or this: mrexcel.com/forum/excel-questions/… Thank you @MathieuGuindon !
– Mikki85
Nov 12 at 18:52
add a comment |
up vote
-1
down vote
favorite
up vote
-1
down vote
favorite
How can I change printed area per each page?
What I want to do: Manually in "page break preview" I can relocate line between pages, that redefine for me area per page. I want to do it from vba code. Is it possible?
My case: I have tables in excel, that created by code, that's mean number of lines in these tables can be different. I want to have the whole table in one page, not divided like I have now, for that reason I will check the end of the tables, and want to relocate end of the pages to these rows, in loop for all tables & pages.
Can somebody help me please?
excel vba excel-vba
asked Nov 12 at 18:10
Mikki85
21
How can I change printed area per each page?
What I want to do: Manually in "page break preview" I can relocate line between pages, that redefine for me area per page. I want to do it from vba code. Is it possible?
My case: I have tables in excel, that created by code, that's mean number of lines in these tables can be different. I want to have the whole table in one page, not divided like I have now, for that reason I will check the end of the tables, and want to relocate end of the pages to these rows, in loop for all tables & pages.
Can somebody help me please?
excel vba excel-vba
excel vba excel-vba
asked Nov 12 at 18:10
Mikki85
21
asked Nov 12 at 18:10
Mikki85
21
asked Nov 12 at 18:10
Mikki85
21
asked Nov 12 at 18:10
Mikki85
21
asked Nov 12 at 18:10
Mikki85
21
21
1
It's possible, look intoWorksheet.PageSetup; note that thePageSetup& page breaks API is rather flaky, so you'll want to be in page break previous mode to manipulate page breaks. Got any code?
– Mathieu Guindon
Nov 12 at 18:37
Unfortunately, I didn't find how can I implement Worksheet.PageSetup but I found VPageBreaks, I will try to do something similar to this: stackoverflow.com/questions/25719060/… or this: mrexcel.com/forum/excel-questions/… Thank you @MathieuGuindon !
– Mikki85
Nov 12 at 18:52
add a comment |
1
It's possible, look intoWorksheet.PageSetup; note that thePageSetup& page breaks API is rather flaky, so you'll want to be in page break previous mode to manipulate page breaks. Got any code?
– Mathieu Guindon
Nov 12 at 18:37
Unfortunately, I didn't find how can I implement Worksheet.PageSetup but I found VPageBreaks, I will try to do something similar to this: stackoverflow.com/questions/25719060/… or this: mrexcel.com/forum/excel-questions/… Thank you @MathieuGuindon !
– Mikki85
Nov 12 at 18:52
1
1
It's possible, look into
Worksheet.PageSetup; note that the PageSetup & page breaks API is rather flaky, so you'll want to be in page break previous mode to manipulate page breaks. Got any code?– Mathieu Guindon
Nov 12 at 18:37
It's possible, look into
Worksheet.PageSetup; note that the PageSetup & page breaks API is rather flaky, so you'll want to be in page break previous mode to manipulate page breaks. Got any code?– Mathieu Guindon
Nov 12 at 18:37
Unfortunately, I didn't find how can I implement Worksheet.PageSetup but I found VPageBreaks, I will try to do something similar to this: stackoverflow.com/questions/25719060/… or this: mrexcel.com/forum/excel-questions/… Thank you @MathieuGuindon !
– Mikki85
Nov 12 at 18:52
Unfortunately, I didn't find how can I implement Worksheet.PageSetup but I found VPageBreaks, I will try to do something similar to this: stackoverflow.com/questions/25719060/… or this: mrexcel.com/forum/excel-questions/… Thank you @MathieuGuindon !
– Mikki85
Nov 12 at 18:52
add a comment |
1 Answer
1
active
oldest
votes
up vote
0
down vote
Ok, So I found what I need. If somebody is interested this is the main idea:
Sub SetPageBrake()
ActiveWindow.View = xlPageBreakPreview
Worksheets(1).ResetAllPageBreaks
ActiveWorkbook.PageSetup.PrintArea = 'Put here some range
With 'worksheet
Set .HPageBreaks(1).Location = .Range("A40") 'The page break will be above the cell
Set .HPageBreaks(2).Location = .Range("A98")
End With
ActiveWindow.View = xlNormalView
End Sub
Thank's for all the people who tried to help. Shame to people who put minus for my reputation without any clue even where to search an answer.
answered Nov 13 at 16:16
Mikki85
21
add a comment |
Your Answer
StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");
StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});
function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});
}
});
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53267809%2fprint-range-for-each-page%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
1 Answer
1
active
oldest
votes
1 Answer
1
active
oldest
votes
active
oldest
votes
active
oldest
votes
up vote
0
down vote
Ok, So I found what I need. If somebody is interested this is the main idea:
Sub SetPageBrake()
ActiveWindow.View = xlPageBreakPreview
Worksheets(1).ResetAllPageBreaks
ActiveWorkbook.PageSetup.PrintArea = 'Put here some range
With 'worksheet
Set .HPageBreaks(1).Location = .Range("A40") 'The page break will be above the cell
Set .HPageBreaks(2).Location = .Range("A98")
End With
ActiveWindow.View = xlNormalView
End Sub
Thank's for all the people who tried to help. Shame to people who put minus for my reputation without any clue even where to search an answer.
answered Nov 13 at 16:16
Mikki85
21
add a comment |
up vote
0
down vote
Ok, So I found what I need. If somebody is interested this is the main idea:
Sub SetPageBrake()
ActiveWindow.View = xlPageBreakPreview
Worksheets(1).ResetAllPageBreaks
ActiveWorkbook.PageSetup.PrintArea = 'Put here some range
With 'worksheet
Set .HPageBreaks(1).Location = .Range("A40") 'The page break will be above the cell
Set .HPageBreaks(2).Location = .Range("A98")
End With
ActiveWindow.View = xlNormalView
End Sub
Thank's for all the people who tried to help. Shame to people who put minus for my reputation without any clue even where to search an answer.
answered Nov 13 at 16:16
Mikki85
21
add a comment |
up vote
0
down vote
up vote
0
down vote
Ok, So I found what I need. If somebody is interested this is the main idea:
Sub SetPageBrake()
ActiveWindow.View = xlPageBreakPreview
Worksheets(1).ResetAllPageBreaks
ActiveWorkbook.PageSetup.PrintArea = 'Put here some range
With 'worksheet
Set .HPageBreaks(1).Location = .Range("A40") 'The page break will be above the cell
Set .HPageBreaks(2).Location = .Range("A98")
End With
ActiveWindow.View = xlNormalView
End Sub
Thank's for all the people who tried to help. Shame to people who put minus for my reputation without any clue even where to search an answer.
answered Nov 13 at 16:16
Mikki85
21
Ok, So I found what I need. If somebody is interested this is the main idea:
Sub SetPageBrake()
ActiveWindow.View = xlPageBreakPreview
Worksheets(1).ResetAllPageBreaks
ActiveWorkbook.PageSetup.PrintArea = 'Put here some range
With 'worksheet
Set .HPageBreaks(1).Location = .Range("A40") 'The page break will be above the cell
Set .HPageBreaks(2).Location = .Range("A98")
End With
ActiveWindow.View = xlNormalView
End Sub
Thank's for all the people who tried to help. Shame to people who put minus for my reputation without any clue even where to search an answer.
answered Nov 13 at 16:16
Mikki85
21
answered Nov 13 at 16:16
Mikki85
21
answered Nov 13 at 16:16
Mikki85
21
answered Nov 13 at 16:16
Mikki85
21
21
add a comment |
add a comment |
Thanks for contributing an answer to Stack Overflow!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
To learn more, see our tips on writing great answers.
Some of your past answers have not been well-received, and you're in danger of being blocked from answering.
Please pay close attention to the following guidance:
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
To learn more, see our tips on writing great answers.
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53267809%2fprint-range-for-each-page%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
1
It's possible, look into
Worksheet.PageSetup; note that thePageSetup& page breaks API is rather flaky, so you'll want to be in page break previous mode to manipulate page breaks. Got any code?– Mathieu Guindon
Nov 12 at 18:37
Unfortunately, I didn't find how can I implement Worksheet.PageSetup but I found VPageBreaks, I will try to do something similar to this: stackoverflow.com/questions/25719060/… or this: mrexcel.com/forum/excel-questions/… Thank you @MathieuGuindon !
– Mikki85
Nov 12 at 18:52